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IDENTIFICATION 


PRODUCT CODE:  AC=F936B-MC 

PRODUCT NAME: CZRMRBO RMO5/3/2 DUAL PORT TEST, PT 1 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 
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Ve ABSTRACT 


THE RMO5/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RMO5/3/2 DUAL PORT LOGIC 

IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

IS NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP=-11, RH11 OR RH70. 


THIS PROGRAM IS THE FIRST PART OF THE DUAL PORT OPTION 
LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 
MANUAL INTERVENTION TESTS. 
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2. REQUIREMENTS 
23 
2.1 EQUIPMENT 
26 PDP-11 PROCESSOR 
27 20K MEMORY 
28 KW11-L OR KW11-P CLOCK 
29 TERMINAL 
30 RH11 OR RH70 
31 1 = DISK DRIVE (RMOS, RMO3 OR RMO2) 
32 RM DUAL PORT TEST CABLE (P/N: 7010507-02) 
3 2.2 PREREQUISITE PROGRAMS 
56 | RMOS/3/2 DISKLESS TEST, PART 18 2 
38 RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 8 3 
40 THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
4} EACH PORT (A & B). 
3 2.3 OTHER PROGRAMS 
45 A. THE OPERATION OF THE ‘PORT SELECT’’ SWITCH IS TESTED 
6 BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 
48 B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 
rs TESTED BY THE RMOS5/3/2 PERFORMANCE EXERCISER PROGRAM. 
51 
$2 
23 3. LOADING PROCEDURES 
55 THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 
56 LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
57 USING THE ASSOCIATED 'XXDP' LOADER. THE PROGRAM MAY NOT 
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4.1 


4.2 


5.1 





BE INCLUDED IN AN ‘XXDP' CHAIN, 


STARTING PROCEDURES 


STARTING ADDRESSES 


A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
10 SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 


B. THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 
USE THE CURRENT DRIVE ADDRESS. 


C. THE PROGRAM CAN BE STARTED AT LOCATION iy (8) TO ALLOW THE 
ADDRESS OF THE RH11 OR RH70 TO BE CHANGED 


OPERATOR ACTION 


A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
& BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 
B. oy THE PROGRAM INTC MEMORY IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TESTING. 
C. SWITCH THE ‘PORT SELECT’ SWITCH ON THE DRIVE TO BE 
TESTED TO THE ‘A/B’ POSITION. CYCLE THE DRIVE uP 
D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 15108) 
INTO THE SWITCH REGISTER (OR THE "SOFTWARE’ SWITCH REGISTER, 
REFER TO SECTION 5.2). 
E. PRESS START. 
F. ENTER THE DRIVE NUMBER. 
G. ENTER THE NUMBER OF THE ‘ad TO BE RUN. ("CARRIAGE RETURN’ 
OR *O* WILL RUN ALL TESTS.) 
THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 


OPERATING PROCEDURES 


"SOF TWARE' SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
"SOFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE ‘CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 

"SOF TWARE* SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


"SWR = NNNNNN NEW =" 
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5.4 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT’ AND 
‘CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING FRRORS 

DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE "SOF TWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR TYPEOUTS 
SW<11>=1 INHIBIT TEST ITERATIONS 
SW<10>=7 


RING TTY BELL ON ERROR 
SW<09>=1 LOOP ON ERROR 


TEST SELECTION 


eet see TESTS ARE SELECTED IN RESPONSE TO THE ‘ENTER 

TEST NUMBER:' MESS ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH era MUST BE TERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SwW<14>, MUST BE SET 
TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST. 


TO RUN ALL TESTS IN eR y ENTER EITHER A °O" FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


THE ‘RUBOUT KEY" (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY '\" FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 


THE a gh al CAN DELETE AN ENTIRE ENTRY BY TYPING A 
"CONTROL U‘ 


TEST CABLE CONNECTION 
TO TEST THE RMO5/3/2 DUAL PORT OPTION WITH THIS PROGRAM, 


. (THE TEST CABLE IS 
P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 


B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT O OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE DRIVE CABLE CONNECTED TO THE RMO5/3/2 UNDER TEST, 
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
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OF THE DRIVE WILL RESPOND TO A DIFFERENT MASSRBUS ADDRESS. 
THE ADDRESS OF EACH PORT WIkL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 


THE PROGRAM WILL _TYPEQUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


BOO IIUIOI III IOIOISIOISIISISISIOIOIOIOIOIOIIIOIOI IOI IIIS OT OTTOSSOAS SAIN HM 
* ANY OTHER DRIVE ON THE MASSBUS WHITH HAS AN ADDRESS * 
* IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 
* POWERED DOWN. * 
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THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST iHE DRIVE. 

IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON a > 

CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 O THE 
RMO5/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE (BIN: ‘Wore. on 
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT ‘R’’ T J6. 


THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

INCLUSIVE ‘OR’ OF THE PORT : ” PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 

‘RMDS* (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

Or THE SELECTED PORTS*S ATTENTION BIT. 


WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 
CALLED AND IF SW<15> IS NOT SET, THE ERROR MESSAGE PERTAINING 
TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 


A. AN ERROR MESSAGE 
B. A DATA HEADER LINE 
C. A DATA LINE CONTAINING: 
1. THE TEST NUMBER 
2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL WAS MADE 
3. CONTENTS OF THE APPROPIATE REGISTERS 


MISCELLANEOUS 


RESTRICTIONS 


SEQ OOO 
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SEQ 0007 
229 TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A Kw11-P 
530 OR A KW11=L CLOCK. ‘ADDITIONALLY, THE DRIVE UNDER TEST 
231 MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 
233 7.2 LIMITATIONS 
535 THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
33% PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
537 PORT OPTION, AND DOES NOT TEST THE UNLOAD COMMAND 
538 OR THE OPERATION OF THE PORT SELECT SWITCH ON THE DRIVE. 
239 (REFER TO PARAGRAPH 2.2 & 2.3) 
241 7.3 ‘EXECUTION TIME 
543 PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS. PASS 2 AND 
c44 SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS. 
sto 7.4 REQUIRED TESTS 
548 IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE. THE 
549 OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
250 TESTS ARE RUN: 
552 A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
55% LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
254 EACH PORT. 
256 7.5 DISK SURFACE USAGE 
558 THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER. THE 
559 DRIVE MUST BE CYCLED UP AND BE ON LINE FOR THE DIAGNOSTIC TO BE 
Pay RUN * 
262 7.6 LOOP ON ERROR OPTION 
564 IF SW<O9> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
365 UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
366 BECAUSE THE PROGRAM MUST RESET THE RMOS/3/2 TO A KNOWN STATE 
567 BEFORE LOOPING ON THE ERROR. THE TEST FOR Sw<09> IS PERFORMED 
568 AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 
569 WAS DETECTED. 
570 
571 
572 
573 8. TEST DESCRIPTIONS 
Be RT og i eee 
276 8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 
578 THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
579 THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
580 BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
581 CATA’ & "WV") AND VERIFIES THAT CORRECT STATUS IS READ 
582 THROUGH BOTH PORTS. (THE CORRECT STATUS IS ‘MOL', 'P 
583 ‘DPR’, & "DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 


284 RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
285 AND THAT ANY BIT DESCREPANCY BETWEEN PORTS INDICATES A 
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SEQ 0006 
soe FAILURE IN THE PATH FOR THAT BIT. 
288 ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, ROB) OF THE 
289 MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 
soy THE DRIVE IS IN NEUTRAL. 
$8 8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 
294 THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SFIZED BY 
295 CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 
296 THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
297 SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 
298 ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E., 
299 CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 
300 | THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
= HAS BEEN SEIZED BY THE SPECIFIED PORT. 
or 8.3 METHOD USED TO VERIFY PORT REQUESTS 
305 THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 
306 TESTED TO DETERMINE IF 
307 . A DRIVE IS IN NEUTRAL,1.£., RQA AND ROB ARE ZERO; 
308 . A DRIVE IS SEIZED, I.E., RQA OR ROB IS ONE ; 
309 . A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED TO THE 
77 ALTERNATE PORT, I.E., RQA AND ROB ARE ONE. 
312 
313 
Ly TEST 1 NEUTRAL ACCESS TEST 
+3 VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 
318 A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
319 DRIVE IS A DUAL PORT RMO5/3/2, THAT THE DRIVE IS ONLINE (RMDS HAS 
320 "MOL', 'PGM', "DPR’, & DRY’ BITS SET), AND THE THE DRIVE SERIAL 
355 NUMBER READ THROUGH BOTH PORTS IS THE SAME. 
35% B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
325 
359 TEST 2 PORT "A* SEIZE/TIMEOUT TEST 
328 VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
35) IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
331 A. WRITE O'S INTO RMDA THROUGH PORT ‘A*; VERIFY THAT THE DRIVE 
335 HAS BEEN SEIZED. 
334 B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'B':: 
$42 VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
337 C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
338 MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
339 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
ey NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
342 
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SEQ 0009 
TEST 3 PORT 'B* SEIZE/TIMEOUT TEST 


VERIFY THAT THE DRIVE CAN BE SEIZED BY eg A _— REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER 


A. WRITE O'S INTO _RMDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'A'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 


C. WAIT FOR THE PORT TIMEOUT TO mete ese THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
TEST 4 PORT ‘A* SEIZE/RELEASE TEST 
TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 
C. ISSUE A RELEASE COMMAND THROUGH PORT'A’. VERIFY THAT THE DRIVE 
me" TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
TEST 5 PORT "B* SEIZE/RELEASE TEST 
TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTG RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 
C. ISSUE A RELEASE COMMAND THROUGH PORT ‘B'. VERIFY THAT THE DRIVE 
ae TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
TEST 6 PORT *A* NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
TEST 7 PORT "B* NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
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TEST 10 PORT ‘A* RELEASE INTERFERENCE TEST 
VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 


9ST fo W® > 


IS SEIZED BY THE OTHER PORT. 

SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘B’. 

RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘A’. 


RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT - DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


TEST 11 PORT ‘B® RELEASE INTERFERENCE TEST 
VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 


IS SEIZED BY THE OTHER PORT. 

SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 

RELEASE THE DRIVE THROUGH PORT ‘A*. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘B*. 


RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT as DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


TEST 12 PORT *A* RELEASE W/ERRORS TEST 
VERIFY "7 A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 


A. 
B. 
C. 


S ARE SET IN THE DRIVE. 

SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING O'S INTO RMDS. 

WRITE 1°S INTO RMER1 THROUGH PORT ‘A’. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE *. 
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. 
THAT RMER1 HAS NOT BEEN CLEARED. 

CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 


ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


SEQ 0010 
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TEST 13 PORT ‘B' RELEASE W/ERRORS TEST 
VERIFY ye A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 


A. 
B. 


ITS ARE SET IN THE DRIVE. 

SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0'S INTO RMDS. 

WRITE 1'S INTO RMER1 THROUGH PORT ‘B’. 

ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE ‘GO’ 
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B’. 


ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 14 PORT ‘A’ SEIZE AND CLEAR TEST 
VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 


A. 


B. 


C. 


D. 


PORT TO RELEASE THE DRIVE. 


SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT ‘A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


ISSUE A DRIVE CLEAR THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ISSUE A_MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
THE DRIVE DOES NOT RETURN TO NEUTRAL. 


RELEASE THE DRIVE THROUGH PORT °A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 15 PORT ‘B* SEIZE AND CLEAR TEST 
VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 


A. 


B. 


PORT TO RELEASE THE DRIVE. 


SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT ‘B'. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


ISSUE A DRIVE CLEAR THROUGH PORT '"B* AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
THE DRIVE DOES NOT RETURN TO NEUTRAL. 


RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 16 SEIZE ‘A* BY RMCS1 TEST 


SEQ 0011 
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VERIFY THAT READING THE Pere. REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRA 


A. READ THE CONTROL . (RMCS1) THROUGH PORT ‘A’; VERIFY THAT 
THE DRIVE IS SEIZED 


B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’; VERIFY THAT THE Pin 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
TEST 17 SEIZE *B' BY RMCS1 TEST 


VERIFY THAT READING THE _— REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRA 


A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B‘’; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 20 PORT °A* INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST" IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT ‘B* BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. a eae CONTROL REGISTER FROM PORT ‘A’. VERIFY THAT ‘DVA* IS NOT 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


HEST 21 PORT 'B" INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST* IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT ‘A" BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. oc idee CONTROL REGISTER FROM PORT ‘B'. VERIFY THAT "DVA' IS NOT 
C. ISSUE A RELEASE COMMAND THROUGH PORT ‘A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 22 SEIZE BY RMAS TEST 


TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
ar SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 


SEQ 0012 
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A. =o Elena DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 


B. —_— A_RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 
TEST 23 INHIBIT SEIZE BY RMAS TEST 


VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ‘ZERO’ IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT. 


A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 


B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 


TEST 24 SET PORT ‘A* REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0'S INTO RMDS. 


B. WRITE 0°S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ‘B’. 


C. ISSUE_A RELEASE COMMAND FROM PORT ‘B' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT A‘. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'A’ AND IS NOT SET FOR PORT 'B'. 
D. ISSUE A RELEASE COMMAND THROUGH PORT '"A* AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 25 SET PORT ‘B’ REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING O'S INTO RMDS. 


WRITE 0°S INTO tes i a PORT *B’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 


C. ISSUE A RELEASE COMMAND FROM PORT ‘A' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT "B*. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'B' AND IS NOT SET FOR PORT ‘A’. 
ISSUE A RELEASE COMMAND THROUGH PORT 'B* AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 26 TEST RESET ATTENTION ‘A‘ BY DRIVE CLEAR 


SEQ 0013 
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VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. 


e. 


os ea PORT *S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
ISSUE A DRIVE CLEAR COMMAND. 
ATT ton b DRIVE THROUGH PORT ‘A’, VERIFY THAT THE ATTENTION 


PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
"B’ IS STILL SET. 


TEST 27 TEST RESET ATTENTION ‘B’ BY DRIVE CLEAR 
VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. 


D. 


a naa PORT’S ATTENTION BIT. VERIFY THAT BOTH ATTEN: JON BITS 


SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 
ISSUE A DRIVE CLEAR COMMAND. 
RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE ATTENTION 


BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
"A’ IS STILL SET. 


TEST 30 RESET ATTENTION ‘A’® BY GO TEST 
VERIFY THAT THE *GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. 


C. 
D. 


SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 


SEIZE THE DRIVE THROUGH PORT ‘'A* BY WRITING 0'S 
INTO RMDS. 


ISSUE A NOP COMMAND. 


RELEASE THE FRIVE THROUGH PORT ‘A'. VERIFY THAT THE 
ATTENTION BIT FOR PORT ‘A’ IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘B' IS STIL SET. 


TEST 31 RESET ATTENTION ‘B' BY GO TEST 
VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 


SEIZING PORT. 


ES OR EE Ge ee ee ee ee —- — 


SEQ 0014 
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SEQ 0015 


A. SET EACH PORT'S S aae ary BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET 


B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0'S 
INTO RMDS. 


C. ISSUE A NOP COMMAND. 


D. RELEASE THE FRIVE THROUGH PORT 'B’. VERIFY THAT THE 
ATTENTION SIT FOR PORT ‘B’ IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘A’ IS STIL SET. 


TEST 32 TEST RESET ATTENTION ‘A* & ‘B' BY MASSBUS INIT 


VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT’S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
C. ae A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 


TEST 33 RESET ATTENTION ‘A’ & 'B' BY RMAS 


VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THE DRIVE IS IN NEUTRAL. 
C. WRITE THE DRIVE’S ATTENTION BIT IN RMAS. VERIFY 
THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 
TEST 34 PORT "A" ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A. SET THE ATTENTION BIT FOR PORT ‘A’. 
B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION B17 
FOR THE DRIVE IS SET. 
TEST 35 PORT 'B" ALTERNATE ATTENTION PATH TEST 
VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
A, SET THE ATTENTION BIT FOR PORT 'B'. 


ee ence _—— 
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B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 


READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


TEST 36 SET ATTENTION ‘A' BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT & ATTENTION BITS AFTER A 
COMMAND . 


ISSUE A OFFSET COMMAND THROUGH PORT ‘A’, 


WAIT FOR THE OFFSET COMMAND TO COMPLETE (‘DRY’ TO BECOME 
"1')._ VERIFY THAT THE ATTENTION BIT FOR PORT ‘A’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT ‘'B’ IS NOT SET. 


C. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


“ 


TEST 37 SET ATTENTION 'B’ BY COMMMAND TEST 
TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND . 


A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘B'. 


B. WAIT — THE RECALIBRATE COMMAND TO COMPLETE (‘DRY’ TO BECOME 
“ae VERIFY THAT THE ATTENTION BIT FOR PORT ‘B’ IS SET AND 
THAT’ THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 


C. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 40 PORT °A*® SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


A. WITH PORT ‘A* SELECTED, RESET AND SET "UNIT READY'' 
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT "VOLUME VALID’' IS RESET AND 
ATTENTION IS SET. 


B. ISSUE A DRIVE A COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
5 ag THAT ATTENTION IS RESET AND THAT VOLUME VALID 
* AND 


C. RELEASE THE DRIVE FROM PORT ' 
PORT *B'. VERIFY THAT ATTENTION IS 
VOLUME VALID IS STIL RESET. 


D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT *B’ THEN RELEASE PORT ‘B’. 


SELECT THE DRIVE FOR 
STIL SET AND THAT 


ee ern em 0 ree ee ee eee ee ee Se ee ee ee Ce - _ 


SEQ 0016 
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TEST 41 PORT ‘B' SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 
A. WITH PORT 'B’ SELECTED, RESET AND SET ‘UNIT READY’’ 
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND al "VOLUME VALID'’ IS RESET AND 
ATTENTION IS SET 
B. ISSUE A ‘‘' 5 anon COMMAND AND A READ IN PRESET 
COMMAND TO THE 


DRIVE THAT WAS SEIZED IN STEP A. 
Ty acy. THAT ATTENTION IS RESET AND THAT VOLUME VALID 


C. RELEASE me DRIVE FROM PORT 'B* AND SELECT THE op FOR 
PORT VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 
D. ISSUE A DRIVE CLEAR AND A READ sn PRESET COMMAND TO 
PORT ‘A* THEN RELEASE PORT ‘A 
TEST 42 TEST PORT "A*® TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ‘A‘* BY WRITING O0°S INTO RMDS. 
6. WRITE 1°S INTO RMER1 THROUGH PORT ‘A‘* TO FORCE AN ATTENTION. 
C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT ‘A’ AND NOT SET FOR 
PORT ‘B*; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
TEST 43 TEST PORT *B* TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT "B' BY WRITING O°S INTO RMDS. 
B. WRITE 1°S INTO RMER1 THROUGH PORT ‘B’. 
Cs ae FOR THE DRIVE TO TIMEOUT. oe 6 THAT THE DRIVE RETURNED TO 


UTRAL; THAT ATTENTION IS SET FOR PORT *B* AND IS NOT SET FOR 
PORT *A'; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 


TEST 44 PORT °A' RETRIGGER BY DEMAND TEST 


VERIFY THAT THE PORT TIMEOUT ONE~SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 
B. WAIT 500 MS AND READ RMDS THROUGH PORT ‘A’. 


SEQ OOTY 


LS SL se 
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C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR = te OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP ‘B’. 


D. alt is eet DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


TEST 45 PORT 'B* RETRIGGER BY DEMAND TEST 


VERIFY THAT THE PORT TIMEOU! ONE=SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
B. WAIT 500 MS AND WRITE 0'B INTC RMDS THROUGH PORT ‘A’. 


C. sg, A THAT THE TIMEOUT OCCURS WITHIN + OR = 25% OF THE SPECIFIED 
TIME. (THE MEASUREMENT 1S MADE FROM STEP 'B’.) 


VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 
TEST 46 PORT "A* TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0'S INTO RMDS. 
B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘A’. 
C. ISSUE A RELEASE COMMAND FROM PORT °B'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA* BIT DID NOT 
SET FOR PORT *B*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 47 PORT "B* TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INIO RMDS. 
SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘B*. 


C. ISSUE A RELEASE COMMAND FROM PORT ‘A’. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE THER PORT AND THAT THE ‘ATA' BIT DID NOT 


SET FOR PORT ‘A‘. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B'. 


WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


SEQ 0016 


G2 
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SEQ 0019 
| 913 
914 
315 | TEST 5O0 PORT ‘A SEIZE ACCESS TEST 
! gi? VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
| 919 A. SEIZE THE DRIVE THROUGH PORT 'A’ BY WRITING O'S INTO RMDS. 
921 B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’, 
923 C. READ RMER1, RMER2 THROUGH PORT 'B’. VERIFY THAT PORT 
36 'B' SEES O'S FROM EACH OF THESE REGISTERS. 
96 D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’, 
928 © E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT 
929 PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 
931 F. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE HAS 
932 SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT ‘B® IS 
935 SET AND THE ATTENTION BIT FOR PORT 'A* IS NOT SET. 
935 G. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
936 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
938 
939 TEST 57 PORT 'B" SEIZE ACCESS TEST 
ra VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
943 A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTO RMDS. 
& 
365 B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B’. 
947 C. READ RMER1, RMER2 THROUGH PORT 'A’*. VERIFY THAT PORT 
248 "A' SEES 0°S FROM EACH OF THESE REGISTERS. 
oan D. CLEAR RMER1, RMER2 THROUGH PORT 'B'. 
952 E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT 
935 PORT "B* SEES O'S FROM EACH OF THESE REGISTERS. 
955 F. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE HAS 
956 SWITCHED TO PORT "A‘ AND THAT THE ATTENTION BIT FOR FORT ‘A' IS 
ped SET AND THE ATTENTION BIT FOR PORT 'B' IS NOT SET. 
959 G. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
960 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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SEQ 0020 


s*LAST REVISION 04-4PR=81 
-TITLE CZ2RMRBO | lal DU POR TST 1 
s*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT ee 

; * COLORADO SPGS.., 
: sPROGRAM BY MIKE LEAVITT 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
¢ *PACKAGE (MAINDEC=11=DZQAC=C5), 18-MAR=-81 


:SBITL OPERATIONAL SWITCH SETTINGS 


CO. 80919 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 


BELL ON ERROR 
LOOP ON ERROR 


BASIC DEFINITIONS 


at OF THE STACK POINTER *** 1100 *** 


;sBASIC DEFINITION OF ERROR CALL 
>sBASIC DEFINITION OF SCOPE CALL 


pa DEF INITIONS 


:;CODE FOR HORIZONTAL TAS 

;;CODE FOR LINE FEED 

;:CODE FOR CARRIAGE RETURN 

;;CODE FOR CARRIAGE RETURN-LINE FEED 
;sPROCESSOR STATUS WORD 


+s STACK LIMIT REGISTER 

GRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 
: sHARDWARE DISPLAY REGISTER 


PURPOSE REGISTER DEFINITIONS 


SWITCH 
**® eeeeae 
:* 15 

;* 14 

:* 13 

;* 17 

:* 10 

;* 9 

. SBTTL 

s* INITIAL 
STACK = 
ERROR = EMT 
SCOPE = JOT 

11 

4 = 12 
CR s 35 
CRLF = 200 
PS = 177776 
PSW=PS 
STKLMT = 177776 
PIRG = 177772 
DSWR = 177570 
DDISP = 177570 
2 *GENERAL 
RO = £0 
R1 = Z1 
R2 = Z2 
R3 = 2S 
R4 = 44 
R5 = 25 
R6 = 26 
R7 = %7 

SP = 36 
PC = a 


3 GENERAL REGISTER 
3; GENERAL REGISTER 
: GENERAL REGISTER 
3;GENERAL REGISTER 
3 GENERAL REGISTER 
3: GENERAL REGISTER 
; GENERAL REGISTER 
;GENERAL REGISTER 
: : STACK POINTER 
3 PROGRAM COUNTER 


2 *PRIORITY LEVEL DEFINITIONS 
PRO = 0 


PR1 





;sPRIORITY LEVEL ° 
;;PRIORITY LEVEL 1 


TE Ce A CE tt A | nme ch om ~- ~~ -eme 


ee 
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' BASIC DEFINITIONS SEQ 002" 
000100 PR2 = 100 ;;PRIORITY LEVEL 2 
000140 PR3 = 140 ;;PRIORITY LEVEL 3 
000200 PR4 = 200 ;;PRIORITY LEVEL 4 
000240 PR5 = 240 ;;PRIORITY LEVEL 5 

300 PR6 = 306 ;sPRIORITY LEVEL 6 
000340 PR7 = 340 ;sPRIORITY LEVEL 7 
:*' ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 w15 = 100000 
040000 SW14 = 40000 
020000 Sw13 = 20000 
010000 SW12 = 10000 
000 Sw] = 4000 
002000 SW10 = 2000 
001000 Sw09 = 1000 
000400 Sw08 = 400 
000200 Sw07 = 200 
000100 Sw06 = 109 
000040 Sw05 = 40 
000020 Sw04 = 20 
000010 Sw03 = 10 
000004 Sw02 = 4 
000002 Sw01 =2 
000001 Sw00 = 1 
001000 SW9=SWO9 
000400 SW8=SWO08 
000200 Sw7=Sw07 
000100 SW6= 
000040 SW5=SwWO05 
000020 SW4=S 
000010 SwW3=Sw03 
000004 SW2=SwW02 
000002 SW1=SwW01 
000001 SWO=S 
:*DATA BIT DEFINITIONS (6IT00 TO BIT15) 
100000 171 = 100000 
040000 BIT14 = 40000 
020000 BIT13 = 20000 
010000 BIT12 = 10000 
000 BIT11 = 4000 
002000 BIT10 = 2000 
001000 BITO9 = 1000 
00 BIT08 = 400 
000200 BITO7 = 200 
000100 IT06 == _-100 
000040 BITOS = 40 
000020 IT04 = 20 
000010 BIT03 = 10 
000004 BIT02 = 4 
000002 BITO1 =2 
600001 BITOO = 1 
001000 BIT9=BITO9 
000400 BIT8=B1T08 
000200 BIT7=B1 107 
000100 BI T6=BIT06 
000040 BIT5=BIT05 
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BIT4=BIT04 

BIT35=B1T03 

BIT2=B1T02 

BIT1=B1T01 

B1T0=B1T00 

;*BASIC ‘'CPU'' TRAP VECTOR ADDRESSES 

ERRVEC = 4 OUT AND OTHER ERRORS 

RESVEC = 10 : RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC = 14 is ' BIT 

TRIVEC = 14 ‘TRACE TRAP 

BPTVEC = 14 ; ;BREAKPGINT TRAP (BPT) 

IOTVEC = 20 EF oe key ual TRAP (IOT) **SCOPE** 
VEC = 24 ;;POWER FAIL 

EMTVEC = 30 +; EMULATOR TRAP (EMT) **ERROR*«* 

TRAPVEC = 34 :""TRAP’' TRAP 

TKVEC = 60 PETTY KEYBOARD VECTOR 

TPVEC = 64 ;;TTY PRINTER VECTOR 

PIRQVEC = 240 ; PROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL RH/RM REGISTERS 
: CONTROL AND STATUS REGISTER 1 (RMCS1) 


IE = 100 ; INTERRUPT ENABLE (BIT #6) 

RDY = 200 ;READY (BIT #7) 

Al6 = 400 ;HIGH ORDER BUS ADDRESS BIT (BIT #8) 
A17 = 1000 sHIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 PORT SELECT (BIT #10) | 
MCPE = 20000 =MASSBUSS P ARITY ERROR (BIT #13) 

TRE = 40000 ; TRANSFER ERROR (BIT #14) 

SC = 100000 SPECIAL CONDITION (BIT #15) 
;CONTROL AND STATUS REGISTER 2 (RMCS2) 

U0 = | SUNIT SELECT (BIT #0) 

Ul =2 SUNIT SELECT (BiT #1) 

u3 = 4 ;UNIT SELECT (BIT #2) 

BAI = 10 BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT = 20 Z;MASSBUS PARITY TEST (BIT #4) 

CLR = 40 ;CLEAR (BIT #5) 

IR = 100 ; INPUT READY (BIT #6) 

OR = 200 “OUTPUT READY (BIT #7) 

MDPE = 4 =MASS BUS PARITY ERROR (BIT #8) 

MXF = 7 *MISSED TRANSFER ERROR (BIT #9) 

PGE = 2000 ;PROGRAM E (BIT #10) 

NEM = 4000 “NON EXISTENT MEMORY (BIT #11) 

NED = 10000 = NON EXISTENT DRIVE (BIT #12) 

UPE = 20000 3 BUS PARITY ERROR (BIT ti 

WCE = 40000 ;WRITE CHECK ERROR (BIT #14 

DLT = 100000 ;DATA LATE (BIT #715) 


;DATA BUFFER REGISTER (RMDB) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 


re ee 6 ee CR 6 ee os ee 


SEQ 0027 
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640 
64 
642 
643 
644 
645 
646 
647 
648 
650 
651 
652 
653 
654 
655 
657 
658 
659 
661 
663 
665 
667 
668 
669 
670 
671 
672 
675 
674 
675 
676 
677 
678 
681 
683 
685 
687 
689 
690 
691 
692 
693 
695 
696 
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:CONTROL AND STATUS REGISTER 41, 
GO = 1 

FQ = 2 

F 1 = 4 

F2 = 10 

F3 = 20 

F4 = 40 

DVA = 4000 


(#00) 

;GO BIT (BIT #0) 

sFUNCTION CODE BIT 41 
sFUNCTION CODE BIT #2 
sFUNCTION CODE BIT #3 
s;FUNCTION CODE BIT #4 
sFUNCTION CODE BIT #5 
sDEVICE AVAILABLE (BIT #11) 


:CONTROL STATUS REGISTER #2 (RMCS2) 


; CONTROLLER CLEAR 


; OFFSET MODE 

sVOLUME VALID (BIT #6) 

:DRIVE READY (BIT #7) 

; DRIVE PRESENT (BIT #8) 
OGRAMABLE (BIT #9) 

SLAST SECTOR ante (BIT #10) 

;WRITE LOCK (BIT #11) 

;MEDIUM ON-LINE (BIT #12) 

sPOSITIONING OPERATION ve PROGRESS (BIT #13) 
OMPOSITE ERROR (BIT #14 


CLR = BITS 
sDRIVE STATUS REGISTER (RMDS) (401) 
OM = BITOO 
VV = 100 
DRY = 200 
DPR = 400 
PGM = 1000 
LBT = 2000 
WRL = 4000 
MOL = 10000 
PIP = 20000 
ERR = 40000 
ATA = 100000 


sC 
ZATTENTION ACTIVE (BIT #15) 


sERROR REGISTER #01 (RMER1) (402) 


ILR = 2 
RMR zs 4 

PAR = 10 
FER = 20 
WCF = 40 
ECH = 100 
HCE = 200 
HCRC = 400 
AOE = 1000 
IAE = 2000 
WLE = 4000 
DTE = 10000 
OPI = 20000 
UNS = 40000 
DCK = 100000 


: ILLEGAL FUNCTION (BIT #0) 

; ILLEGAL REGISTER (BIT #1) 

Bs 5 ae MODIFICATION REFUSED (BIT #2) 
RROR (BIT #3) 


PARITY E 

sFORMAT ERROR (BIT #4) 

;WRITE CLOCK FAIL (BIT #5) 
HARD ERROR (BI 


; T 

:DRIVE TIMING ERROR (BIT #12) 

; OPERATION ae at (BIT #13). 
;DRIVE UNSAFE (BIT @ 

:DATA CHECK ERROR (BIT 15) 


sMAINTAINABILITY REGISTER (RMMR1) (#03) 


DMD = 1 

MUR = BITO9 
ROB = BIT14 
ROA = BIT15 


sDIAGINOSTIC MODE (BIT #0) 
;MAINTENANCE UNIT READY 
;PORT B REQUEST FLOP 
:PORT A REQUEST FLOP 


sATTENTION SUMMARY PSEUDO=REGISTER (RMAS) (404) 


ATO = 1 


sDEVICE QO (BIT #0) 


LC eC te tL ellL l te fttttt ta 


c >) 


| L 2 
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RM REGISTERS 
697 000002 AT] =e sDEVICE 1 (BIT #1) 
698 000004 AT = 4 ;DEVICE ¢ (BIT #2) 
99 000010 AT = 10 sDEVICE 3 (BIT #3) 
000020 AT4 = 20 sDEVICE 4 (BIT #4) 
701 000040 AT5 = 40 sDEVICE 5 (BIT #5) 
702 000100 AT6 = 100 sDEVICE 6 (BIT #6) 
703 000200 AT? = 200 sDEVICE 7 (BIT #7) 
705 sDESIRED SECTOR/TRACK erie eas en (RMDA) (#05) 
s >; (EACH BIT IS CALLED BY BIT NUMBER) 
:DRIVE TYPE REGISTER (RMDT) (406) 
710 000001 DTOO = 1 sDRIVE TYPE NUMBER BIT 1 
711 000002 DTO1 = 2 ; E TYPE NUMBER BIT 2 
712 000004 DT02 = 4 sDRIVE TYPE NUMBER BIT 3 
713 000010 DTO3 = 10 ; E TYPE NUMBER BIT 4 
714 000020 DTO4 = 20 ; E TYPE NUMBER BIT 5 
715 000040 DT05 = 40 ;DRIVE TYPE NUMBER BIT 6 
716 000100 DT = 100 >DRIVE TYPE NUMBER BIT 7 
717 000200 DTO7 = 200 sDRIVE TYPE R BIT 8 
718 00 DTO8 = 400 sDRIVE TYPE NUMBER BIT 9 
719 000 DRQ = 4000 sDRIVE REQUEST REQUIRED (BIT #11) 
720 020000 MOH = 20000 ;MOVING HEAD (BIT #13) 
721 040000 TAP = 40000 ; TAPE DRIVE (BIT #14) 
ees 100C00 NBA = 100000 ;NOT BLOCK ADDRESSED (BIT #15) 
oe sLOOK-AHEAD REGISTER (RMLA) (407) 
726 000100 SCO = 100 :SECTOR COUNT FIELD 0 (BIT #6) 
000200 SC1 = 200 sSECTOR COUNT FIELD 1 (BIT #7) 
728 00 SC2 = 400 sSECTOR COUNT FIELD 2 (BIT #8) 
729 001000 SC3 = 1000 :SECTOR COUNT FIELD 3 (BIT #9) 
in 002000 SC4 = 2000 :SECTOR COUNT FIELD 4 (BIT #10) 
Le sRM ERROR REGISTER #2 (RMER2) (#10) 
734 000010 DPE = 10 :DATA PARITY ERROR (BIT #3) 
735 000200 DVC = 200 sDEVICE CHECK (BIT #7) 
02000 LBC = 2000 :LOSS OF BIT CLOCK (BIT #10) 
737 104000 LSC = 4000 sLOSS OF SYSTEM CLOCK (BIT #11) 
010000 IVC = 10000 ; INVALID COMMAND (BIT #12) 
739 020000 = 20000 ;OPERATOR ERROR (BIT #13) 
me 100000 SKI = 100000 :SEEK INCOMPLETE (BIT #14) 
Lng sOFFSET REGISTER (RMOF) (#11) 
744 000200 OF D = 200 sOFFSET FORWARD (BIT #5) 
745 002000 HC] = 2000 :HEADER COMPARE INHIBIT (BIT #10) 
746 004000 . EC] = 4000 ;ERROR CORRECTION CODE INHIBIT (BIT #11) 
gh 010000 FMT16 = 10000 FORMAT BIT (BIT #12 
749 sDESIRED CYLINDER ADDRESS (RMDC) ete? 
Le ; (EACH BIT IS CALLED BY BIT NUMBER) 
752 ;SERIAL NUMBER op A (RMSN) (#14) 
753 : (EACH IS CALLED BY BIT NUMBER) 


SEC 0024 


_ CZRMRBO RMOS/3/2 DU POR TST 1 
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| RM REGISTERS 


754 
755 :ECC POSITION REGISTER (RMECI) (416) 
756 ; (EACH BIT IS CALLED BY BIT NUMBER) 
758 :ECC PATTERN REGISTER. (RMEC2), (#17) 
739 ;(EACH BIT IS CALLED BY BIT NUMBER) 
761 .SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
763 000000 RMCS1 = 0 ;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
764 000002 RMWC = ;WORD COUNT REGISTER (NOT A DRIVE REG) 
765 000004 = 4 UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
766 000006 = 6 SDESIRED SECTOR/ TRACK ADDRESS REGISTER (DRIVE REG. 05) 
767 000010 RMCS2 = 10 : CONTROL AND STAT ER #2 (NOT A DRIVE REG) 
? 000012 Ss sie :DRIVE STATUS REGISTER (DRIVE REG 01) 
769 000014 RMER1 = 14 SERROR REGISTER #1 ) 
770 000016 RMAS = ‘16 ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
771 000020 RMLA = 20 ;LOOK AHEAD REGISTER REG. 07) 
772 000022 = 22 ;DATA BUFFER REGISTER (NOT A DRIVE REG.) 
773 000024 RMMR1 = 24 ;MAINTAINABILITY REGISTER (DRIVE REG. 03) 
77% 000026 RMDT = 26 ;DRIVE TYPE REGISTER (DRIVE 
775 000030 RMSN = 30 'SERIAL NUMBER REGISTER (DRIVE REG. 10) 
776 000032 RMOF = 32 SOFFSET REGISTER (DRIVE REG. 
777 000034 RMDC_ = 34 :DESIRED CYLINDER ADDRESS RE (DRIVE REG. 12) 
778 000040 RMMR2 = 40 MAINTENANCE REGISTER #2. RIVE REG. 14) 
000042 RMER2 = 42 GISTER #2 (DRIVE : 
780 000044 RMECT = 44 SECC POSITION REGISTER (DRIVE REG. 16) 
781 000046 RMEC2 =" 46 SECC PATTERN REGISTER (DRIVE REG. 17) 


-_——- Sa 


SEQ 0025 


N 2 
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TRAP CATCHER SEQ 0026 


1 .SBTTL TRAP CATCHER 
=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 ge Ry ao" sHALT*’ 


:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTE 
; *LOCAT ION oe 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 rs 
000174 000000 DISPREG: .WORD 0 :: SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD O 7 SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 
000200 000137 002240 JMP QASTART :; JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 002246 JMP @ASTARTI :START AND CHANGE THE RH/RM ADDRESS 
5 .SBTTL ACT11 HOOKS 
CRAKEAR AREER EERE 
“HOOKS REQUIRED BY ACT11 
000210 $SVPC=. :SAVE PC 
000046 .=46 
000046 066110 SENDAD :21)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 020000 “WORD 20000 ;:2)SET LOC. 332 TO 20000 
000210 .=$SVPC >: RESTORE P 


Ee 
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COMMON TAGS SEQ 0027 


0 -SBTTL COMMON TAGS 


SF EAR AAA AREER EAE EAEEERERAAET EERE EERHHEHEHEE 


:*THIS TABLE got VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM, 


001100 .=1100 
001100 SCMTAG: :zSTART OF COMMON TAGS 
001100 SPASS: .WORD 0 iiCONTAINS PASS COUNT 
001102 STSTNM: .BYTE 0 $6 TAINS THE TEST NUMBER 
001103 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
001104 SICNT: .WORD 0O ;:CONTAINS SUBTEST ITERATION COUNT 
001106 SLPADR: .WORD OO. 3: CONTAINS SCOPE LOOP ADDRESS 
001110 SLPERR: .WORD QO / ;:CONTAINS SCOPE RETURN FOR ERRORS 
001112 SERTTL: .WORD 0 3: CONTAINS TOTAL ERRORS DETECTED 
001114 SITEMB: .BYTE 0 3; CONTAINS ITEM CONTROL BYTE 
001115 E : BYTE 1 3: CONTAINS MAX. ERRORS PER TEST 
001116 SERRPC: .WORD 0 ;: CONTAINS PC OF LAST ERROR — 
001120 $GDADR: .WORD 0 : 3 Serato ADDRESS OF ‘GOOD’ DAT 
601122 ADR: .WORD 0QO ; CONTAINS ADDRESS OF ‘BAD’ DATA. 
001124 $GDDAT: .WORD 0 es TAINS ‘GOOD’ DATA 
001126 $BDDAT: .WORD 0 ONTAINS *BAD’ DATA 
001130 ~ WORD 0 > > RESERVED~-NOT TO BE USED 
001132 -WORD 0 
001134 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
001135 SINTAG: .BYTE 0 32: INTERRUPT MODE INDICATOR 
001136 -WORD 0 
001140 : -WORD DSWR ; ADDRESS OF SWITCH REGISTER 
001142 DISPLAY: .WORD DDISP : ADDRESS OF DISPLAY REGISTER 
001144 TKS: 177560 7zTTY KBD STATUS 
001146 STKB: 177562 :zTTY KBD BUFFER 
001150 $TPS: 177564 *:TTY PRINTER STATUS REG. ADDRESS 
001152 STPB: 177566 eTTy PRINTER BUFFER REG. ADDRESS 
001154 i: te 0 ONTAINS NULL CHARACTER FOR FILLS 
001155 SFILLS: .BYTE 2 >: CONTAINS # OF FILLER CHARACTERS +. 
001156 SFILLC: .BYTE 12 +2 INSERT FILL CHARS. AFTER A “LINE FEED’’ 
001157 STPFLG: .BYTE 0 :""TERMINAL AVAILABLE’’ FLAG (BIT<O7>=0- YES) 
001160 SREGAD: . 0 : : CONTAINS THE ADDRESS FROM 
32WHICH (S$REGO) WAS OBTAINED 

001162 SREGO: .WORD 0 ;:CONTAINS ((S$REGAD) +0) 
001164 STMPO: .WORD 0 7 7USER DEFINED 

11 STMP1: .WORD 0 7;USER DEFINED 
001170 STMP2: .WORD 0 ; USER DEFINED 
001172 STMP3: .WORD 0 7:USER DEFINED 
001174 STMP4: .WORD 0 - sUSER DEF INED 
001176 STIMES: 0 NUMBER OF ITERATIONS 
0012 SESCAPE :0 ESCAPE ON ERROR ADDRESS 
001202 $BELL eASCIZ 5, + hil laa : s CODE FOR BELL 

1206 SQUES ASCII STION MARK 
001207 SCRLF ASCII £4$> ; s CARRIAGE RE TURN 
001210 SLF: ASC] <12> :7LINE FEED 


CF REAR ERA REE EERE EREREEAEEEERERRE EEE 


a ee —— ee ee - 


. os 
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USER DEFINED TAGS SEQ 0028 
.SBTTL USER DEFINED TAGS | 
001212 172540 $LKCSR: .WORD 172540 ;ADDR OF KW11-P STATUS REGISTER 
001214 172542 $LKCSB: .WORD 172542 ;ADDR OF KW11=P COUNTER BUFFER 
001216 000104 $LPVEC: .WORD 104 ADDR OF KW11=P VECTOR 
001220 177546 LkS: WORD 177546 ;ADDR OF KWil=L STATUS REGISTER 
001222 000100 SLLVEC: .WORD 100 ADDR OF KW11=L VECTOR 
001224 000000 PORTA: .WORD 0 ;ADDRESS OF PORT A 
226 000000 PORTB: .WORD 0 ADDRESS OF PORT B 
001230 000000 PORTC: .WORD 0 ADDRESS OF DIFFERENT DRIVE 
001232 000000 RQSTA: .WORD 0 ;REQUEST BIT FOR PORT A 
1234 000000 RQST8: {WORD 0 “REQUEST BIT FOR PORT 8 
001236 000000 ASR1: .WORD 0 :ATA@A OR ATAB = 1 
001240 000000 PTNBR: .WORD 0 ;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 
001242 000000 SEIZPT: .WORD 0 ;CONTAINS THE ADDRESS OF THE SEIZING PORT 
001244 000000 T: .WORD 0 :CONTAINS THE ADDRESS OF THE *OPPOSITE’ PORT 
001246 000000 TSTNUM: .WORD 0 R OF THE CURRENT TEST 
001250 000000 CKERR: .WORD 0 SIF =1, A REGISTER MISCOMPARISON OCCURRED 
001252 000000 SEIZ: .WwORD 0 :1F -1, THE PORT IN ‘SEIZPT’ DID NOT SEIZE THE DRIVE 
001254 000000 RELERR: .WORD 0 IF -1, THE PORT IN ‘SEIZPT’ DID NOT RELEASE THE DRIVE 
001256 000000 TIME:  .WORD 0 sELAPSED TIME COUNTER 
1260 000000 WATCH: WORD 0 :WATCH DOG TIMER LOCATION 
001262 000000 TIMEA: .WORD 0 :THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
1264 000000 TIMEAP: .WORD 0 :PORT A TIMEOUT VALUE + 25% 
1266 000000 TIMEAM: .WORD 0 ;PORT A TIMEOUT VALUE - 25% 
001270 000000 TIMEB:- .WORD 0 ; THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 
001272 000000 TIMEBP: .WORD 0 ;PORT A TIMEOUT VALUE + 25% 
001274 000000 TIMEBM: .WORD 0 ;PORT B TIME VALUE - 25% 
001276 000000 TIMES: .WORD 0 ;STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 
1300 000000 KYBCTL: .WORD 0 :SINGLE TEST INDICATOR 
001302 000000 HGADR: .WORD 0 ;CMANGE THE RH/RM ADDRESS INDICATOR 
.SBTTL RH/RM UNIBUS AND VECTOR ADDRESSES 
001304 176700 R: .WORD 176700 ;RH/RM UNIBUS ADDRESS 
001306 000254 SRMVEC: .WORD 254 ; INTERRUPT VECTOR ADDRESS 


ree 
. 
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Siete ee ee | 


072724 


077341 
101230 
101516 


072745 
077341 
101230 
101516 


072767 


101516 


073051 
077461 
101312 
101531 


073102 

101523 

Catae 
100054 


101332 
101523 
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SEQ 0029 


-SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR age CAN OCCUR. 


:*THE INFORMATION IS OBTAINED BY USING THE INDEX FOUND IN 
:*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ee; IS PERTINENT. 


: *NOTE1: IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS ( 
:*NOTE2: ° EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM ;zPOINTS TO THE ERROR MESSAGE 
:* DH 7;POINTS TO THE DATA HEADER 
3° DT ;zPOINTS TO THE DATA 
i* DF :;POINTS TO THE DATA FORMAT 
SERRTB 
sERROR 1 
EM1 ;WRONG DRIVE TYPE 
DH1 
DT1 
DF 1 
ERROR 2 
EM2 ;DRIVE NOT ON LINE 
DH1 
DT1 
DF 1 
sERROR 3 
oe ;SERIAL NUMBERS NOT THE SAME 
DT3 
DF 1 
ERROR 4 
EM4 :DRIVE NOT SEIZED BY PORT ‘N' 
DH4 
DT7 
DF7 
ERROR 5 
aa: sWRONG STATUS SEEN BY THE SEIZING PORT 
DT5 
DF5 
ERROR 6 
EMG sREGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED 
D113 
DF5 
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ERROR POINTER TABLE 


60 001410 
61 001412 
62 C01414 
63 001416 
64 


073250 
077660 
101312 
101531 


073531 
077604 
101260 
101523 





073361 
100003 
107230 
101516 


073445 
100550 
101420 
101544 


101312 
107531 


073724 
077660 
101312 
101531 
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SEQ 00350) 


REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 


sREGISTER CONTENTS INCORRECT 





: CONTROL BUS PARITY ERROR WHILE READING REGISTER 


;DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 


: VOLUME VALID* BIT NOT SET BY READIN PRESET 


;*VOLUME VALID* SET ON THE OPPOSITE PORT 


:THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 


sATTN BIT WRONG AFTER RELEASE = REQUEST WAS SET 


eee eee eee 


eee enes cee — . 


100 
101 
102 001470 
103 001472 
104 901474 
105 001476 


edie ah en ae 
MN ee ee ee ee ee ee OQ 
VOOM Wank WWnmODR UR 


~— — ww 
ORO 
S888 
— — 2 
MI 
XRNS 


BABAR A WRENS 
Ss 
5 


a] 
© 
5 
a 
vi 
* 
S 


et eh ed eh ed ed ed ed weed ed eed aed eed 
~~ 
© 
8 
Vw 
7 
oO 
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074136 
100550 
101420 
107544 


074211 
100174 
701350 
101540 


074276 


101516 


074544 
101516 
074423 
100550 


101410 
101544 


1071540 
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sERROR 17 
EM17 ;ATTN BIT WRONG AFTER RELEASE = REQUEST NOT SET 


EM20 :DAIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 


EM21 sDRIVE SEIZED WHEN ZERO WRITTEN IN ATIN BIT FOR PORT 


EM22 sDRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 


EM23 : TIMEOUT CLEARED THE DRIVE'S ERROR BIT 


EM24 sRELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 


EM25 ; TIMEOUT ONE=SHOT DID NOT RETRIGGER 


EM26 sDRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


LL ES oe ee ee ao - _—_ — 
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101523 


075054 
100550 
101410-- 
101544 


075156 
100550 
101410 
101544 


075261 


101410 
101544 
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sERROR 27 | 
" sREGISTER WRONG AFTER RELEASE WITH REQUEST SET 


sDRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 


sDRIVE NOT SEIZED BY PORT AFTER RELEASE WIJTH REQUEST SET 


ATTN BIT WRONG AFTER RECALIBRATE COMMAND 


sDRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 


sDRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED 


:DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEQUT ONE SHOT 


; TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 


ee 


SEG U0 


NN aril iro 4 
* 


MIMIMIMINM 
WN 


LN 

Wis 

888 
—_ — 
a 
Nm 


1704 
226 001706 
227 


34 
247 001736 


251 001740 
252 001742 
253 001744 
254 001746 


258 001750 
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075412 
100550 
107420 
101544 


075460 


101430 
101547 


075665 
100577 
101430 
101547 


075742 


101540 


076017 
077341 
101230 
101516 


0676071 


101540 


ERROR 37 


sERROR 47 


ee. 
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sDRIVE IS NON-EXISTENT 


sAi TENTION FOR PORT NOT RESET BY MASSBUS CLEAR 


:TIMEOUT CLEARED ATTENTION BIT 


sDRIVE NOT IN NEUTRAL OR SEIZED 


sDRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 


sWRITE ATTENTION BIT DID NOT SET PORT REQUEST 


sPORT SELECT SWITCH ON DRIVE NOT IN ‘A/B' 


CAN'T ACCESS DRIVE THROUGH EITHER PORT 


LL I a I AS A i NS e-em ae seep eee _———— oe 


SFO 0045 
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272 001770 
273 001772 


MmNN 


SSCRGRER SS SETS SE 


WWWNAIWWNWANAW 
eee eed eed nw od ed =) od 
WONOUSWN-O 

Nm 

© 

wi 

© 


076310 
077604 
191260 
101523 


076577 
100054 
101332 
101523 


101516 


076553 
100174 
101450 
101540 


7 ERROR 


: ERROR 


sERROR 5 


sERROR 


> ERROR 


sERROR 


;ERROR 


: ERROR 


_ 
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sATTN BIT FOR SEIZING PORT NOT CLEARED BY DRIVE CLEAR 


sATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMMAND 


sATIN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 


sATTN BIT SET AFTER TIMEOUT, ‘ERR’ SET, NO REQUEST 


;CAN'T READ ATTN BIT FROM OPPOSITE PORT 


sRELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 


; TIMEOUT ONE-SHOT IS LESS THAN 500 MS 


;RH/RM DIDN'T RESPOND TO ADDRESSING 


te rte tte sutteeneennnns —— 
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357 


002130 


358 002132 
359 002134 
360 002136 


361 
362 
363 


1 
101523 


077017 
077604 
101260 
101525 


077115 
100054 
101332 
101523 


077163 
100550 
101410 
101544 


077225 
077660 
101312 
101531 


077274 
077604 
101260 
101523 


> ERROR 


s ERROR 


; ERROR 


; ERROR 


: ERROR 


; ERROR 
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;PORT REQUEST FLOPS WRONG 


sATTENTION BITS NOT RESET BY RMAS 


sATTENTION NOT RESET BY GO 


: ATTENTION RESET BY GO WHEN NOT SEIZED 


;DRIVE SEIZED BY UNIT READY CHANGE 


sATTENTION NOT SET BY UNIT READY CHANGE 


:VV NOT RESET BY UNIT READY 


LE - 
LO LE CL EC CC Ct tt tittle Nt, —- = eee ee ae ee we 


—-e. 


| aaa i 


ee ee eee 
ee 
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OVI S\N 


wed aed et etd 
OUFW oO 





005037 


012737 
000240 


000403 
012716 


002174 


001302 


177777 


000000 


177777 


002460 
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001302 


THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: 


.SBTTL 
START: 


START1: 
START2: 


. SBTTL 


7: CLEAR 


MOV WSTACK, SP 
cieeabies A FEW VECTORS 


RA 
:zSIZE FOR” A HARDWARE SWITCH REGISTER. IF NOT FOUND OR 
3 EQUAL lf A’ wt ae 


64$: 


MOV 
T 


(SP) ,RO 


. seo MusT” Bn THE TIME OUT OCCURED 
(SP)+,(SP)+ 


;RESTORE STACK POINTER 
,65$ i TYPE ASCIZ STRING 


64$ :GET O 
<CRLF >/UNEXPECTED. BUS TIMEOUT, PC=/ 
RO,-(SP) ;SETUP FOR TYPING OUT PC 


sPUT *HALT(O)' INSTRUCTION HERE IF YOU WISH 
;TO STOP ON UNEXPECTED TIMEOUT. 


START OF PROGRAM 


CLR 
BR 


MOV 


NOP 
INC 


BNE 
RESET 


CHGADR ;CLEAR THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 


START2 :GO TO THE START 
#~1 , CHGADR ;SET THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 
#0 :TTY LOOP, WAIT FOR INCREMENT 

“ OF WORD 


[CLEAR THE WORLD 


INITIALIZE THE COMMON T 
THE COMMON 


MOV 
CLR 
CMP 


AGS 
TAGS > uli AREA 


#SCMTAG,R yy 4 LOCATION TO BE CLEARED 
(R6) + 73 CL EAR MEMORY LOCATION 
#SWR RE 


: TLOOP. "BACK K IF NO 
 ESETUP THE STACK POINTER 


@#IOTVEC ::IOT VECTOR FOR SCOPE ROUTINE 
e320 ablorvecee ::LEVEL 7 
MTVEC : EMT VECTOR FOR ERROR ROUTINE 
#340, SHEMTVEC*® ? 
#$T RAPV 


TRAP, C :2 TRAP VECTOR FOR TRAP CALLS 
#340 a#TRAPVEC+2;LEVEL 7 
SENDCT , SEOPCT tTSETUP E 
STIMES 3 


SESCAPE 

#1, SERMAX ; OW PER T 

#..$LPADR INITIALIZE THE LOOP ADDRESS FOR SCOPE 
ERROR LOOP TR 

SETUP FOR A SOFTWARE SWITCH REGISTER. 

RRVEC,~(SP) ;;SAVE ERROR VECTOR 


#64$ ,QMERRVEC ;;SET UP ERROR V 

ADSWR , SWR * 3 SETUP FOR A SWICH REGISTER 
ADDISP ,DISPLAY 7sAND A HARDWARE DISPLAY REGIS -_ 

66$ : BRANCH IF NO TIMEQUT TRAP OCCURRED 


sAND THE HARDWARE SWR IS NOT = -1 
: ;BRANCH IF NO TIMEOUT 


65$ 
#65$, (SP) ;SET UP FOR TRAP RETURN 





SEQ 0056 


LL 2 
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INITIALIZE THE 





COMMON TAGS SEQ 0037 
| 002456 000002 RTI 
| 002460 012737 000176 001140 65$: MOV #SWR /sPOINT TO SOFTWARE SwR 
002466 012737 000174 001142 MOV aD ISPREG DISP LAY 
| 002474 012637 000004 66$: MOV (SP)+,QMERRVEC ;;RESTORE ERROR VECTOR 
25 :SETUP ''TIMEOUT'' TRAP VECTOR FOR UNE XPE CTED BUS TIMEOUTS 
| 26 002500 012737 002160 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
27 002506 012737 000300 000006 MOV #PR6, ERRVEC YS “LEVEL 6 
29 .SETTL TYPE PROGRAM NAME 
:: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
002514 005227 177777 INC #-1 ::FIRST TIME? 
2520 001037 BNE ‘ 7$ + BRANCH IF NO 
002522 022737 066110 000042 CMP WSENDAD 0442 =: :ACT=11? 
2530 001433 BEQ 67$ : ;BRANCH IF YES 
002532 104401 002540 TYPE ,68$ :: TYPE ASCIZ STRING 
2536 000430 BR 7$ : GE T T OVER THE ASCIZ 
pia 4688: -ASCIZ <CRLF>@CZRMRBO - 2 DUAL PORT LOGIC TESI, PT 1a<CRLF> 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
002620 005737 000042 TST a42 :ZARE WE RUNNING UNDER XXxXDP/ACT? 
002624 001 BNE 69$ > BRANCH IF YE 
002626 023727 001140 000176 CMP SWR ASWREG 7: SOFTWARE SWITCH REG SELECTED? 
26 1005 BNE 70$ 3 
002636 104406 GTSwR ::GET SOFT-SWR SETTINGS 
002640 03 BR 70$ 
2642 112737 000001 001134 69$: MOVB  #1,$AUTOB zzSET AUTO-MODE INDICATOR 
002650 70$: 
31 002650 004737 070610 JSR PC, S$TKINT :SETUP THE TTY KEYBOARD 
32 002654 004737 003246 1$: JSR PC, CHANGE > CHECK/CHANGE THE RH/RM ADDRESS 
33 002660 104401 072372 TYPE JENTERA sENTER DRIVE ADDRESS 
34 002664 104412 RDOCT :GET THE ADDRESS 
35 00 012637 001224 V (SP)+,PORTA ZSTORE THE .ADDRESS 
3% 002672 023727 001224 000007 CMP PORTA_#7 :SEE IF ADDRESS TOO LARGE 
37 002700 101403 BLOS 2$ F NO 
38 002702 104401 072421 TYPE ADRERR :TYPE ADDRESS ERROR MESSAGE 
39 002706 0007 BR is Y AGAIN 
40 002710 013737 001224 001226 2$: MOV PORTA,PORTB : GENERATE THE PORT B ADDRESS 
41 002716 005237 001226 INC PORTB > INCREMENT THE ADDRESS 
42 062722 042737 16 001226 BIC 6,PORTB *LEAVE BIT 0 
43 002 013746 001224 MOV PORTA, ~(SP) :PUT PORT A ADDRESS ON THE STACK 
44 002734 042716 177771 BIC #°C6, (SP) sSAVE BITS 1 
45 002740 052637 001226 BIS )+,PORTB ;SET BITS 1 & 2 IN PORT B ADDRESS 
46 002744 104401 072644 TYPE PORTA :"PORT A ADDRESS IS ° 
47 005750 013746 001224 MOV PORTA,~(SP) i: SAVE PORTA FOR TYPEOUT 
002754 104403 TYPOS ::GO TYPE=-OCTAL ASCII 
002756 001 BYTE 1 =: TYPE 1 DIGIT(S) 
002757 000 ‘BYTE 0 ;;SUPPRESS LEADING ZEROS 
48 002760 104401 072473 TYPE  .PORTBIS = PORT B ADDRESS I 
49 002764 013746 001226 MOV PORTB, -(SP) >;SAVE PORTB FOR TYPEOUT 
7: TYPE PORT B ADDRESS 
002770 104403 TYPOS ::GO TYPE=-OCTAL ASCII 
002772 001 -BYTE 1 =: TYPE 1 DIGIT(S) 
002773 000 “BYTE 0 :: SUPPRESS LEADING ZEROS 
50 002774 104401 001207 TYPE “$CRLF ‘ANOTHER CR=LF 


ee ee ee me 


_ CZRMRBO RMO5/3/2 DU POR TS7 


: 
| 


51 003000 
S2 003006 
53 003014 
54 003022 
55 003026 
58 003034 
003040 
003044 
003050 


GET VALUE FOR SOF TWARE 


013757 


003374 
101702 


072600 


101556 
001300 


001 
072675 


Sw! TCH REGISTER 


001230 
001236 


003244 
001104 


3$: 


sROUTINE TO GET 


EXEC: 


1$: 


2s: 


3$: 


4$: 


3: CHANGE 
CHANGE : 


1$: 


3 
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;GENERATE ADDRESS OF DRIVE NOT TESTED 
; COMPLEMENT SOME BITS 
; SAVE oe’ tee BITS 


;CLEAR TIMEOUT ONE~SHOT VALUE LOCATION 


UP CLOCK 
; CLOCK HAS BEEN STARTED 
te A SYSTEM 


: AT 
; INTERLOCK THE HALT 
FROM THE OPERATOR 


: CLEAR EVERYTHING 
:CLEAR THE PROCESSOR STATUS WORD 


:CR=L 
;RH/RM ADDRESS 4. INDEXING 


ERROR MAX 
:INITIAL SETTING FOR LOOP ADDRESS 
;INITIAL SETTING FOR LOOP ON ERROR ADDRESS 
;ASK FOR TEST NUMBER 


THE NUMBER 
PUT ENTRY INTO R1 
;BR_IF NOT ZERO 
sENTER ZERO - PERFORM ALL TESTS 
;SEE IF NUMBER GREATER THAN MAXIMUM 
:BR IF ae OR EQUAL 


Y AGAIN 
DE Tir ENTRY 
: SHIFT IT LEFT 


:GET THE TEST ADDRESS 

:SET SINGLE TEST INDICATOR 
;PRESET ITERATION COUNT , 
:GO TO THE SELECTED TEST 
TEST ADDRESS GOES HERE 


THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


MOV PORTA. PORTC 
ADD #6,PORTC 
BIC #*C7,PORTC 
MOV ORTA,R1 :U 
MOVB  ATABIT(R1),ASR1 
CLR TIMEA 
CLR TIMEAP 
CLR TIMEB 
CLR TIMEBP 
JSR PC, CKCLK 
JMP EXEC 
TYPE ,NOCLOCK 
HAL T 
BR 3$ 

THE TEST NUMBER 
RESET 
CLR PS 
TYPE SCALF 
MOV R,RO 
MOV #STACK,SP 
JSR PC, CKCLK 
NOP 
JSR PC. STKINT 
CLR KYBCTL 
CLR ASS 
MOVB #1,SERMAX 
MOV #.,.$LPADR 
MOV #.,SLPERR 
TYPE ,TESTNO 
RDOCT 
MOV (SP)+,R1 
BNE 2$ 
JMP TST1 
CMP R1,MAXTN 
BLE 3$ 
TYPE 
BR i$ 
DEC R1 
ASL R1 
MOV TSTADR(R1) .4$ 
INC KYBCTL 
MOV #1, $ICNT 
JMP a4$ 
-WORD 0 
TST CHGADR 
BEQ 3$ 
He Ss 

V $RMADR, - (SP) 

TYPOC 
TYPE /$CRLF 
TYPE “NTRH 





er THE ADDRESS ? 
F NOT 


CLEAR THE INDICATOR 

: TYPE OUT WHAT THE PRESENT ADDRESS IS 
;PUT THE ADDRESS ON THE STACK 

are THE ACTUAL ADDRESS 


CR=L 
ASK FOR NEW ADDRESS 


SEQ 0035 


“1X 


N 3 
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VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0039 
107 003302 104412 RDOCT 
108 003304 005716 TST (SP) :0 OR ‘CR’ ENTERED 
109 003306 00140 BEQ 2$ ;BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
110 003310 011637 001304 MOV (SP), $RMADR “NEW RH/RM 
111 003314 005726 2$: TST (SP) + CORRECT THE STACK POINTER 
112 003316 012737 003336 000004 33: MOV #4$, ans “LOAD TRAP ADDRESS 
113 003324 013700 001304 MOV R,RO ‘GET RH/RM ADDRESS 
114 003330 005760 000002 TST RMWC (RO) “RESPONDS AT THAT ADDRESS ? 
115 003334 5$ “BR IF YES 
116 003336 4$: 
003336 104056 EMT 56 
117 003340 062706 000004 ADD #4,SP :RESET THE STACK POINTER 
118 003344 000745 BR 1$ :GET ADDRESS AGAIN 
119 003346 012737 000006 000004 S$: MOV #6, aH4 “RESTORE THE VECTOR 
120 003354 000207 RTS PC RETURN 


B 4 
‘wen RMOS/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 18:06:25 PAGE 10 


| TES SEQ 0040 
| } .SBITL TESTS 
| 16 

17 003356 013700 001304 TST1AA: MOV SRMADR , RO ;;RESTORE RO AFTER END OF PASS 
| 18 003362 012746 000240 MOV #PRS ,=(SP) ::PUT NEW PS ON STACK 

003366 012746 003374 MOV #64$.-(SP) ::PUT NEW PC ON STACK 

| 003372 000002 RT] *:POP NEW PC AND PS 
. 003374 643: 
| 20 SERRA ARERR ARR AREER ETE RENEE EERE 
| : #TEST 1 NEUTRAL ACCESS TEST 


:*VERIFY THAT THE DRIVE IS ACCESSIBLE 10 BOTH PORTS 


* A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
:* DRIVE IS A DUAL PORT RMOS, RMO3 OR RMO2 AND THAT THE DRIVE 
:* IS ONLINE (RMDS HAS 'MOL*, 'PGM', ‘DPR’, & "DRY’ BITS SET). 
:* AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS [S 
;* THE SAME. 
:* B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
**® 
PPE TITITITIC ITI TITTLE TITLE LITLE T ETT TTT TTT TTT TT TTT TTT TTT TTT ee 
003374 TST1: 
003374 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
003400 001406 BEQ 2$ :BR IF NOT 
003402 100002 BPL 1$ :BR IF IF JUST ENTERED TEST 
003404 137 003074 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
003410 012737 177777 001300 1S: MOV #-1, KYBCTL “SET SINGLE Tes! INDICATOR 
003416 012737 001106 2$: MOV ATESTI,$LPADR :SETUP SCOPE LOOP ADDRESS 
003424 012737 003432 001110 nee MOV #TEST1,$LPERR :SETUP ERROR LOOP ADDRESS 
003432 112737 000001 001102 MOVB #1.$TSTNM MOVE #1 TO TEST NUMBER 
003440 012706 001100 MOV #STACK, SP OAD THE STACK POINTER 
- 003444 012737 000001 001176 MOV #1, STIMES 5 DO 1 ITERATION 
2 003452 012760 000040 000010 MOV #CLR,RMCS2(RO) ;INITIALIZE THE MASSBUS 
24 : VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A&B 
33 003460 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
003466 013737 001224 001240 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
003474 905760 000012 TST RMDS (RO) :SEE IF DRIVE (PORT A) PRESENT 
003500 005037 001250 CLR CKE *CLEAR THE "CHECK ERROR" INDICATOR 
003504 016037 000010 001126 MOV RMESS(RO) SBDDAT :GET CONTENTS OF RMCS2 
003512 012737 000010 001122 MOV #RMCS2, $BD :FORM REGISTER ADDRESS OF ERROR MESSAGE 
37. 001122 ADD RO, $8DADR :AD RM BASE ADDRESS 
003524 005037 001124 CLR SGDDAT :WHAT REGISTER SHOULD BE 
3 013737 001126 001164 MOV SBDDAT,$TMPO § :MOVE REGISTER CONTENTS TO "STMPO' 
003536 042737 167777 001164 BIC *CNED. ;$STMPO ;:SAVE SPECIFIED BITS 
3 023737 001124 001164 CMP SGDDAT.$TMPO ° :COMPARE THE 
003552 001414 BEQ 64$ ‘BR IF OK 
093554 013737 001126 001174 MOV SBDDAT.$TMP4 §: COPY “BAD DATA’ 
62 042737 01 001174 BIC #NED, STMP4 : CLEAR THE MASKED BITS 
003570 053737 001174 001124 BIS S$TMP4,$GDDAT  :'OR' WITH GOOD DATA POR TYPEQUT 
003576 104037 EMT 37 . 
005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


C 4 
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TRAL ACCESS TEST SEQ 0041 
003604 000240 64$: NOP 
005737 001250 TST CKERR :WAS "NED' SET ? 
003612 0017403 BEQ +10 “BR IF NOT 
003614 012760 000040 000010 MOV #CLR,RMCS2(RO) :ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
003622 113760 001226 000010 MOVB PORTA, RMCS2( (RO) ;SELECT PORT 
003630 013737 001226 001240 MOV PORTB.PTNBR ;:MO Move PORT ADDRESS TO LOCATION FOR TYPEQOUT 
003636 005760 000012 TST RMDS (RO) :SEE IF DRIVE (PORT B) PRESENT 
003642 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
003646 016037 000010 001126 MOV RMCS2(RO), ,SBDDAT ‘GET CONTENTS OF RMCS2 
003654 012737 000010 001122 MOV #RMCS2,$B :F ORM REGISTER ADDRESS OF ERROR MESSAGE 
372 001122 ADD RO SBDADR RH/RM BASE ADDRESS 
5037 001124 CLR SGDDAT SAT REGISTER SHOULD 
003672 013737 001126 001164 MOV SBDDAT.STMPD MOVE REGISTER CONTENTS TO ‘$TMPO’ 
3700 042737 167777 001164 BIC #*CNED,STMPO ;SAVE SPECIFIED BITS 
3706 023737 001124 001164 CMP SGDDAT,$TMPO ~° ; COMPARE THE 
003714 001414 BEQ 66$ ‘BR IF OK 
716 013737 001126 001174 MOV SBDDAT,$TMP4 = :COPY ‘BAD DATA’ 
003724 042737 001174 BIC #NED, STMP4 : CLEAR THE MASKED BITS 
003732 053737 001174 001124 BIS STMP4,$GDDAT  ;:'OR' WITH GOOD DATA FOR TYPEOUT 
603740 104037 FMT 37 
003742 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
003746 000240 66$: NOP 
003750 005737 001250 TST CKERR :WAS "NED’ SET ? 
003754 001403 BEQ +10 “BR IF NOT 
* 012760 000040 000010 MOV #CLR,RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
35 ; CONFIRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND IS DUAL PORTED 
40 003764 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
003772 013737 001224 001240 MOV PORTA, PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004000 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
004004 016037 000026 001126 MOV RMDT(RO) .SBDDAT ;GET CONTENTS OF RMDT 
004012 012737 000026 001122 MOV #RMDT , SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004020 37 001122 ADD ZADD RH/RM BASE ADDRESS 
904024 012737 024027 001124 MOV #024027,$GDDAT WHAT REGISTER SHOULD BE 
004032 022737 024024 001126 CMP #024024,$BDDAT ;DUAL PORT RMO3 ? 
004040 001413 BEQ :YES !! 
004042 022737 024025 001126 CMP #024025.$8DDAT :DUAL PORT RMO2 ? 
004050 001407 BEQ 7YES !! 
004052 023737 001124 001126 CMP SGDDAT.$BDDAT :IS THE REGISTER Ok ? 
004060 001403 BEQ 68$ 7BR IF OK 
004062 104001 EMT 1 
004064 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004070 000240 68$: NOP 
004072 113760 001226 000010 MOVB  PORTB.RMCS2(RO) ;:SELECT PORT B 
904100 013737 001226 001240 MOV PORTB,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004106 005037 001250 CLR CKERR :CLEAR THE 'CHECK ERROR" INDICATOR 
004112 016037 000026 001126 MOV RMDT(RO),$BDDAT ':GET CONTENTS OF RMDT 
004120 012737 000026 001122 MOV #RMDT,SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
004126 060037 001122 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
004132 012737 024027 001124 MOV #024027,$GDDAT :WHAT REGISTER SHOULD BE 
004140 022737 024024 001126 CMP #024024. $BDDAT ; DUAL PORT RMO3 ? 
004146 001413 BEQ 70$ YES !! 
004150 022737 024025 001126 CMP #024025,$BDDAT :DUAL PORT RMO2 ? 
004156 001407 BEQ sYES !! 
004160 023737 001124 001126 CMP GDDAT,$BDDAT :IS THE REGISTER Ok ? 
004166 001403 BEQ 70$ “BR IF OK 


eee es 


‘ =e Se e-em ee 
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rT NEUTRAL ACC T 


ESS TES! SEQ 004; 
004170 104001 EMT 1 : 
004172 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
_ 004176 000240 70$: NOP | 
“2 ; VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
4 
48 004200 760 001224 000010 MOVB  PORTA,RMCS2(RO) ;:SELECT PORT A 
206 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004214 037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
220 016037 000012 001126 MOV RMDS(RO),$BDDAT ;:GET CONTENTS OF RMDS 
004226 012737 000012 001122 MOV #RMDS,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
234 37, 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
004240 012737 001000 001124 MOV #PGM,$GDDAT :WHAT REGISTER SHOULD BE 
004246 013737 001126 001164 MOV SBDDAT,$TMPO  ;:MOVE REGISTER CONTENTS TO "STMPO" 
004254 042737 176777 001164 BIC #°CPGM,$TMPO ;SAVE SPECIFIED BITS 
023737 001124 001164 CMP SGDDAT,$TMPO ~  ; COMPARE THE 
270 001414 BEQ 72$ IF OK 
004272 013737 001126 001174 MOV SBDDAT.STMP4 “COPY “BAD DATA 
300 042737 001 001174 BIC #PGM, STMP4 :CLEAR THE MASKED BITS 
604306 053737 001174 001124 BIS STMPS , SGDDAT :"OR* WITH GOOD DATA FOR TYPEOUT 
004316 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004322 000240 72$: NOP 
004324 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
004330 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
004336 012737 001122 MOV #RMDS,SBDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
344 001122 ADD RO, SBD :ADD RH/RM BASE ADDRESS 
004350 012737 01 001124 MOV AMOL'DPR'DRY.SGDDAT ;WHAT REGISTER SHOULD BE 
356 013737 001164 MOV SBDDAT.STMPO ; MOVE REGISTER CONTENTS TO °$TMPO’ 
2737 167177 001164 BIC #*C10600,$T :SAVE SPECIFIED BITS 
004372 023737 001124 001164 CMP SGDDAT,$TMPO COMPARE THE BITS 
004400 001414 BEQ 74$ :BR IF OK 
02 013737 001126 001174 MOV SBDDAT, STMP4 >COPY "BAD DATA’ 
004410 042737 0 001174 BIC #10600.$ :CLEAR THE MASKED BITS 
004416 053737 001174 001124 BIS STMPS, SEnDAT :"OR' WITH GOOD DATA FOR TYPEOUT 
004424 104002 EMT 2 
004426 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004432 000240 74$: NOP 
004434 113760 001226 000010 MOVB PORTB.RMCS2(RO) -:SELECT PORT B 
004442 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004450 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICA 
004454 016037 000012 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
004462 012737 000012 001122 MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004470 060037 001122 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
004474 012737 001000 001124 MOV #PGM.$GDDAT :WHAT REGISTER SHOULD BE 
004502 013737 001126 001164 MOV SBDDAT, STMPO :MOVE REGISTER CONTENTS TO 'STMPO' 
004510 042 176777 001164 BIC #°CPGM,$TMPO :SAVE SPECIFIED BITS 
004516 023737 001124 001164 CMP SGDDAT .$TMPO ;COMPARE THE BITS 
004524 001414 BEQ 76$ F OK 
004526 013737 001126 001174 MOV SBDDAT.$STMP4 “COPY ‘BAD DATA* 
004534 042737 000 001174 BIC #PGM, STMP4 “CLEAR THE MASKED BITS 
004542 053737 001174 001124 BIS $T™MP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
004550 104045 EMT 45 
004552 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004556 000240 76$: NOP 
004560 005037 001250 CLR CKERR sCLEAR THE "CHECK ERROR" INDICATOR 
004564 016037 000012 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
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004572 
600 


012737 
7 


012737 
112737 
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S28 
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001300 


003074 
177777 
005004 
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001124 
000010 
001126 
001126 


174200 


001300 
007106 
001110 


001102 





783: NOP 


#RMDS , $BDADR 
RO, SBDADR . D 
#MOL | DPR DRY SGDDAT 
SBDDAT,$TMPO| =: MOV 
#010000 $TMPO 


; FORM gy byt Lie ADDRESS OF ERROR MESSAGE 

; AD RM BASE ADDRESS 

UMAT REGISTER SHOULD BE 
REGISTER od li TO *STMPO’ 

; SAVE ee TAL BITS 


SGDDAT,$TMPO =: COMPARE THE BITS 
78$ :BR IF OK 
SBDDAT,.$TMP4 = : COPY ‘BAD DATA’ 


#10600. STMP4 
STMP4, $GDDAT 


2 
CKERR 


: (LEAR He. MASKED BITS 
‘OR’ WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 


1$: SCOPE 


RMSN (RO) , SGDDAT STORE THE PORT A SERIAL NUMBER 
PORTB.RMCS2(RO) ;SELECT PORT B 


RMSN(RO) ,SBDDAT :STORE THE PORT B < betes NUMBER 
SGDDAT,SBDDAT ARE THEY THE SAME ? 
1$ :BR IF THEY ARE 


;HALT ON ERROR ? 
;BR IF SET - HAS ALREADY HALTED 


3 

#SW15 ,aSWR ; 
1$ é PROGRAM HA 

ay POSSIBLE CABLE CONNECTION PROBLEM 


J RETREAT AERARAERAEERAERARARARERERAAEERHERAREREREEEEREREEEREE 


: TEST 2 


PORT *A* SEIZE/TIMEOUT TEST 


:*VERIFY THAT THE DRIVE CAN BE SEIZED BY ot Ab A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 


Se Se Be Be Bs Be Be Be B 
Ww: +e eee eee ee ee 
oO @ » 
° & 


mgt e Se Be Be 
— 
N 


1$: MOV 
2s: MOY 


TEST2: 


. ee ere Se ee 


WRITE O*S INTO RMDA THROUGH PORT ‘A’; 
HAS BEEN SEIZED. 


READ EACH DRIVE REGISTER, EXCEPT RMCS1, 
VERIFY THAT 0°S ARE READ FROM EACH REGISTER. 


WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF 
VALUE FOR LATER USE. 
NEUTRAL . 


REET EAREKREAERRAAEEEEEAEAEEARARERHREERARARAEAAEARRARAREREREREREREERED 


VERIFY THAT THE DRIVE 


THROUGH PORT ‘B'; 


THE TIMEOUT ONE SHOT AND SAVE THE 
VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 


KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
2$ :BR IF NOT 

1$ :BR IF JUST ENTERED TEST 

EXEC sRETURN & GET NEXT TEST NUMBER 
4#~1 ,KYBCTL :SET SINGLE TEST INDICATOR 
#TEST2,$LPADR SETUP SCOPE LOOP ADDRESS 
ATEST2,$LPERR ;SETUP ERROR LOOP ADDRESS 
42,$TSTNM ;MOVE #2 TO TEST NUMBER 


SEQ OF 


F 4 
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PORT *A* SEIZE/TIMEOUT TEST SFO 0044 
005012 012706 001100 MOV #STACK,SP ;LOAD THE STACK POINTER 
ra 005016 012737 G00002 001176 MOV #2... $TIMES +:D0 2. ITERATIONS 
151 005024 012737 000240 177776 MOV #<5%32.>,aMPS  :SET PRIORITY TO 5 IN CASE LOOPING 
005032 605037 001262 CLR TIMEA “CLEAR TIMEOUT VALUE FOR PORT A 
005036 005037 001264 CLR TIMEAP :CLEAR UPPER TIMEOUT TOLERANCE 
905042 005037 001266 CLR TIMEAM :CLEAR LOWER TIMEOUT TOLERANCE 
:START THE TIMER 
005046 005037 001256 CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
005052 012737 003720 001260 MOV #2000.,WATCH  :SET WATCH TO 2000. MS 
:SEIZE THE DRIVE THROUGH PORT A 
005060 113760 001224 000010 MOVB PORTA. RecS2(RO) sSELECT PORT A 
065066 013737 001224 001242 MOV PORTA, SEIZPT STORE SEIZING PORT'S ADDRESS 
005074 005060 000006 CLR RMDA (RO) :WRITE RMDA 
005100 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
605106 013737 001226 001240 MOV PORTB.PTNBR MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005114 013737 001226 001244 MOV PORTB,OPPRT : ‘OPPOSITE’ PORT ADDRESS 
005122 016037 000012 001126 MOV RMDS(RO),$BDDAT :SEE IF DRIVE SEIZED BY PORT A 
005130 010037 001122 MOV RO, $BDADR :RH/RM BASE ADDRESS 
005134 062737 000012 001122 ADD #RMDS,SBDADR § : GENERATE BAD REGISTER ADDRESS 
005142 005037 001124 CLR SGDDAT :REGISTER SHOULD BE ZERO 
005146 023737 001124 001126 CMP SGDDAT,$BDDAT :1S THE REGISTER ZERO 
005154 001403 BEQ 64$ 7BR IF IT IS 
005156 104004 EMT 4 
005160 000137 006312 a JMP S$ :BYPASS REST OF THE SUBTEST 
005164 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
005172 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005200 016037 000012 001126 MOV RMDS (RO) SBDDAT sSEE IF SEIZING PORT SEES CORRECT STATUS 
005206 042737 020001 001126 BIC #0M'PIP, $8DDAT :CLEAR DONT CARE BITS 
005214 012737 011600 001124 MOV #MOL'PGM'DPR'DRY,SGDDAT ;EXPECTED STATUS 
005222 013737 001124 001166 MOV SGDDAT.$TMP1 ;USE GOOD DATA AS A MASK 
005230 005137 001166 COM STMP1 : COMPLEMENT THE EXPECTED STATUS 
005234 013737 001126 001164 MOV SBDDAT.STMPO  ;:SAVE THE ACTUAL STA 
005242 043737 001166 001144 BIC STMP1 , $TMPO :CLEAR UNWANTED BIT ies 
005250 023737 001124 001164 CMP SGDDAT,$TMPQO =: ARE THE EXPECTED STATUS BITS SET ? 
005256 001401 BEQ 65$ :BR IF THEY ARE 
C05260 104005 EMT ; 
005262 000240 65$: NOP 
:READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
005264 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
005272 013737 001226 001240 MOV PORTB,.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
005300 016046 000046 MOV RMEC2(RO),-(SP) :STORE REGISTER RMEC2. PURT B. FOR CHECK 
005304 016046 000044 MOV RMECT(RO). (SP) :STORE REGISTER RMEC1, PORT B. FOR CHECK 
005310 016046 000030 MOV RMSN(RO),-(SP) STORE REGISTER RMSN, PORT B, FOR CHECK 
005314 016046 000034 MOV RMDC(RO),-(SP) ;:STORE REGISTER RMDC. PORT B. FOR CHECK 
016046 000032 MOV RMOF (RO),-(SP) ;STORE REGISTER RMOF. PORT B. FOR CHECK 
005324 016046 MOV RMER2(RO),-(SP) :STORE REGISTER RMER2. PORT B. FOR CHECK 
005330 016046 20 MOV RMLA(RO),-(SP) ;STORE REGISTER RMLA, PORT B, FOR CHECK 
005334 016046 000026 MOV RMDT(RO),-(SP) :STORE REGISTER RMDT, PORT 8B. FOR CHECK 
005340 016046 000006 MOV RMDA(RO),-(SP) :STORE REGISTER RMDA, PORT B, FOR CHECK 
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PORT *A* SEIZE/TIMEOUT TEST SEQ OC 


005344 016046 000024 MOV RMMR1(RO),-(SP) ; STORE REGISTER RMMR1, PORT B, FOR CHECK 
005350 016046 (00014 ° MOV RMER1(RO),=(SP) :STORE REGISTER RMER1. PORT B. FOR CHECK 
:WAIT FOR PORT A TO TIMEOUT 
005354 005760 000012 1$: TST RMDS (RO) :WAIT FOR THE DRIVE TO TIMEOUT 
005360 001006 BNE 2$ “BR WHEN TIMEOUT OCCURS 
005362 005737 001260 TST WATCH “CHECK WATCH 
005366 001372 BNE 1$ “BR IF NOT ZERO 
005370 104036 EMT 36 
005372 000137 005776 JMP 4$ ;BYPASS TIMEOUT TIME CHECK 
005376 012737 000340 177776 28: MOV #<7*32.>,a4PS SET PRIORITY TO 7 TO STOP CLOCK 
005406 013737 001256 001262 MOV TIME, TIMEA :SAVE THE ELAPSED TIME FOR PORT A 
005412 004537 066324 JSR RS, TOLER “CALCULATE THE TOLERANCE 
005416 001262 \WORD TIMEA : TIMEOUT VALUE FOR PORT A 
| 005420 012637 001264 MOV (SP)+,TIMEAP  :+25% TOLERANCE 
| 005424 012637 001266 MOV (SP)+,TIMEAM — ;=25% TOLERANCE 
| : VERIFY THAT THE TIMEOUT ONE=SHOT IS AT LEAST 500 MS 
| 005430 023727 001256 000764 CMP TIME #500. :WAS MEASURED TIME AT LEAST 500 MS? 
005436 103001 BHIS 3$ “BR IF IT WAS 
| 005440 104055 EMT 55 
i 
| : VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
| 005442 012737 000240 177776 38: MOV #<5*32.>,a#PS ;=RESTORE PRIORITY TO 5 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
005450 005037 001254 CLR RELERR :CLEAR THE “RELEASE ERROR ' INDICATOR 
005454 012737 000012 001122 - MOV ARMDS, SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
005462 060037 001122 ADD RO, $BDAD [ADD THE 1/0 BASE ADDRESS 
005466 012737 011600 001124 MOV #MOL ! POM OPR'DRY® SGDDAT ; COMPAR! SON CONSTANT 
005474 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT 
005502 016037 000012 001170 MOV RMDS(RO),$TMP2 <:GET THE DRIVE” STATUS REGISTER FROM PORT A. 
005510 042737 024001 001170 BIC #PIP'WRL'OM, STMP2 :CLEAR DONT CARES 
| 005516 013737 001170 001164 MOV $TMP2, $TMPO SCOPY IT INTO ‘$TMPO' 
005524 042737 100100 001164 BIC #ATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 005532 113760 001226 000010 MOVB §$ PORTB,RMCS2(RO) :SELECT PORT RB. 
005540 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
| 005546 042737 024001 001172 BIC #PIP'WRL'OM, STMPS :CLEAR DONT CARES 
005554 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘$TMP1° 
005562 042737 100100 001166 BIC WATA'VV,$IMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 005570 023737 001164 001166 CMP $TMPO, STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
| 005576 001006 BNE 66$ ‘BR IF NOT 
005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| 001037 BNE 68$ “BR IF NOT 
| 005606 104046 EMT 46 
| 005610 000137 005774 JMP 70$ :BYPASS THE REST OF THE CHECKS 
005614 013737 901170 001126 66%: MOV SIMP2,$BDDAT §:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
| 005622 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
| 113760 001226 000010 MOVB  PORTB.RMCS2(RO) =SELECT PORT B. 
| 005636 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
5642 001414 BEQ 67$ “BR IF ZERO 
005644 013737 001224 001240 MOV PORTA, PTNBR =SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005652 013737 001172 001126 MOV $TMP3.$BDDAT  :"BAD DATA’ FOR ERROR TYPE OuT 
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005660 113760 001224 000010 MOVB — PORTA,RMCS2(RO) ;SELECT PORT A 
005666 005737 601166 TST $TMP1 ‘SEE IF STATUS EQ ZERO FROM PORT B. 
905672 001004 BNE 68$ ‘BR IF NOT 
005674 012737 177777 001254 67$: MOV #-1 .RELERR :SET ‘RELEASE ERROR’ INDICATOR 
005702 104022 EMT 22 
5706 013737 001170 001126 68%: MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
005712 013737 001224 001240 MOV PORTA.PTNBR ;CHANGE PORT NUMBER 
005720 042737 100100 001126 BIC WATA'VV,$BDDAT DON'T CHE CK ATIN BIT OR vv BIT 
005726 023737 001124 001126 CMP $GDDAT,$BDDAT <ALL BITS OK ? 
005734 001401 BEQ 695 ‘BR IF OK FROM PORT A. 
005736 104007 EMT 7 
005740 013737 001172 001126 69%: MOV $TMP3,$BDDAT =; CHECK RMDS FOR BIT FAILURES - FROM PORT RB. 
005746 013737 001226 001240 MOV PORTA.PTNBR : CHANGE PORT NUMBER 
005754 042737 100100 001126 BIC #ATA!VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 
005762 023737 001124 001126 CMP $GDDAT,$B8DDAT  :SEE IF READ Ok FROM PORT B. 
005770 001401 BEQ 70$ “BR IF OK 
095772 104007 EMT 7 
005774 600240 70$: 


> CHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
: THE REGISTERS ARE STORED ON THE STACK. 


005776 013737 001226 001240 43: MOV PORTB,PTNBR : CHANGE ‘PORT NUMBER’ TO THE OPPOSITF PORT 

006004 010037 001122 MOV RO, $BDADR 7BASE ADDRESS FOR REGISTER RMERT 

006010 062737 000914 001122 ADD #RMER1,$BDADR ADDRESS OF RMER1 FOR TYPEOUT 

006016 012637 001126 MOV (SP)+,$BDDAT | :CHECK THE STORED CONTENTS OF RMER 

006022 001401 BEQ +4 :CONTENTS ZERO ? 

006024 104006 EMT é 

006026 010037 001122 MOV RO, $BDADR :BASE ADDRESS FOR REGISTER RMMRI 

006032 062737 000024 001122 ADD #RMMR1,S$BDADR :ADDRESS OF RMMR1 FOR TYPEOUT 

006040 012637 001126 MOV (SP)+,$BDDAT | :CHECK THE STORED CONTENTS OF RMMRI 

006044 001407 BEQ +4 :CONTENTS ZERO ? 

006046 104006 EMT é 

006050 010037 001122 MOV . RO,S$BDADR :BASE ADDRESS FOR REGISTER RMDA 

006054 062737 000006 001122 ADD #RMDA,$BDADR § : ADDRESS OF RMDA FOR TYPEOUT 

006062 012637 001126 MOV (SP)+,$BDDAT — ;CHECK THE STORED CONTENTS OF RMDA 
001401 BEQ +6 *CONTENTS ZERO ? 

006070 104006 EMT ‘ 

006072 010037 001122 MOV RO, SBDADR :BASE ADDRESS FOR REGISTER RMDT 

006076 062737 000026 001122 ADD HRMDT,$BDADR § :ADDRESS OF RMDT FOR TYPEOUT 

006104 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS OF RMDT 

006110 001401 BEQ eo’ “CONTENTS ZERO ? 

606112 104006 EMT é 

006114 010037 001122 MOV RO, $BDADR :BASE ADDRESS FOR REGISTER RMLA 

006120 062737 000020 001122 ADD #RMLA, SBDADR DRESS OF RMLA FOR TYPEQUT 

006126 012637 001126 MOV (SP) +, $BDDAT CHECK THE STORED CONTENTS OF RMLA 

006132 001401 BEQ +4 :CONTENTS ZERO ? 

006134 104006 EMT 6 

006136 010037 001122 MOV RO, $BVADR :BASE ADDRESS FOR REGISTER RMER2 

006142 062737 000042 001122 ADD #RMER2,$BDADR = ADDRESS OF RMER2 FOR TYPEOUT 

006150 012637 001126 MOV (SP)+,$BDDAT | :CHECK THE STORED CONTENTS OF RMER2 

006154 (001401 BEQ +h “CONTENTS ZERO ? 

006156 104006 EMT é 

006160 010037 001122 MOV RO, $BDADR :BASE ADDRESS FOR REGISTER RMOF 

006164 062737 009932 001122 ADD #RMOF,$BDADR §: ADDRESS OF RMOF FOR TYPEOUT 

006172 012637 001126 MOV (SP)+;$BDDAT | :CHECK THE STORED CONTENTS OF RMOF 


006176 001401 BEQ . +4 :CONTENTS ZERO ? 
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‘BASE ADDRESS FOR REGISTER RMDC 
;ADDRESS OF RMDC FOR TYPEOUT 
=CHECK THE STORED CONTENTS OF RMDC 


s;BASE ADDRESS FOR REGISTER RMSN 
sADDRESS OF RMSN FOR TYPEOUT 
CHECK THE STOKED CONTFNTS OF RMSN 


sBASE ADDRESS FOR REGISTER RMEC1 
sADDRESS OF RMEC1 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMEC1 


;BASE ADDRESS FOR aaa tke RME C2 
sADDRESS OF RMEC2 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMEC2 


: VERIFY THAT THE DRIVE CAN BE SEIZED BY an tien REMOTE REGISTER AND THAT 


VERIFY THAT THE DRIVE 


ONE SHOT AND SAVE THE 


VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 


;PERFORMING ONLY SINGLE TEST ? 
;BR IF NOT 


:BR ae JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 
>SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


sMOVE #3 TO TEST NUMBER 
;LOAD THE STACK POINTER 


:SET PRIORITY TO 5 IN CASE LOOPING 


EMT 6 
MOV RO, $BDADR 
001122 ADD #RMDC, $BDADR 
MOV (SP) +’ $BDDAT 
BEQ +6 :CONTENTS ZERO ? 
EMT 6 
MOV RO, $BDADR 
001122 ADD #RMSN , S$BDADR 
MOV (SP) + $BDDAT 
cat +4 ; CONTENTS ZERO ? 
MOV RO, $BDADR 
001122 ADD #RMEC1, $BDADR 
MOV (SP) +, $BDDAT 
BEQ +4 “CONTENTS ZERO ? 
EMT é 
MOV RO, $BDADR 
001122 ADD #RME C2, $BDADR 
MOV (SP) +, $BDDAT 
BEO +4 “CONTENTS ZERO ? 
5$: SCOPE :LOOP ? 
CRATER RAE ARAEAAARAAEARAAAERAREREREREREAREEKHKEEEKKEKKEE 
: TEST 3 PORT 'B' SEIZE/TIMEOUT TEST 
; IT CAN BE RELEASED BY THE ONE SECOND T 
-* 
:* A. WRITE 0°S INTO RMDA THROUGH PORT ‘B’- 
:* HAS BEEN SEIZED. 
:* B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘A’: 
zs VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
-* 
:* (C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
8 MEASURE THE DURATION OF THE TIMEOUT 
se VALUE FOR LATER USE. 
- 
Shum dceibiaiaileaad biadahinitdanidia datas aisimalbaacaiddaiae witioabaibiiadesics ainsi 
TST3: 
TST KYBCTL 
BEO 2$ 
BPL 1$ 
JMP EXEC 
001300 1$: MOV #-1,.KYBCTL 
001106 2$: MOV #TEST3,$LPADR 
001110 mee MOV #TEST3.$LPERR 
001102 " MOVB #3. $TSTNM 
MOV WSTACK, SP 
001176 MOV #2. ,$TIMES *:DO 2. ITERATIONS 
177776 MOV #5032, >, aAPS 
CLR TIM 


;CLEAR TIMEOUT VALUE FOR PORT B 
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PORT ‘B’ 


006404 
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001260 


000010 
001242 


000010 


0 
001240 


CLR 
CLR 


:START THE TIMER 


CLR 
MOV 


T IMEBP 
T]MEBM 


T TOLERANCE 


;CLEAR UPPER TIMEOU 
ER TIMEOUT TOLERANCE 


;CLEAR LOWER 


;CLEAR THE ELAPSED fy COUNTER 


TIME 
#2000. ,WATCH :SET WATCH TO 2000. 


:SEIZE THE DRIVE THROUGH PORT B 


MOVB 


64$: 


65$: 
zREAD THE DRIVE 


PORTE REIDY oS ;SELECT PORT B 
PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
RMDA (RO) ; WR 


RMDA 
PORTA, RMCS2(RO) ;SELECT PORT A 
A,PTNBR ;MOV ve PORT ADDRESS TO LOCATION FOR TYPEOUT 
: "OPPOSITE" T ADDRESS 


PORT AD 
; SEE IF DRIVE SEIZED BY PORT B 
RO, $BDADR ;RH/RM BASE ADDRESS 


Lol 
— 
m 


ARMDS , SBDADR ; GENERATE BAD REGISTER ADDRESS 

$SGDDAT REGISTER SHOULD BE ZERO 

SGDDAT,$BDDAT 1S THE at Salat ZERO 

_ ;BR IF IT IS 

5$ ;BYPASS REST OF THE SUBTEST 

PORTB, RMCS2 (RO) ;SELECT PORT B 

PORTB,PT PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO), $BDDAT sSEE IF SEIZING PORT SEES CORRECT STATUS 

#OM!PIP ,SBDDAT DONT CARE BITS 


#MOL ! PGM! DPR! DRY, SGDDAT 
GOOD 


; CLEAR 8 
| phy STATUS 
SGDDAT,S$TMP1 ;USE DATA 

STMP1 


COMPLEMENT. THE EXPECTED STATUS 
SBDDAT ,. STMPO :SAVE THE ACTUAL STATUS 
STMP1, STMPO ;CLEAR UNWANTED BITS 
SGDDAT , STMPO ;ARE THE EXPECTED STATUS BITS SET ? 
65$ :BR IF THEY ARE 
REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 
PORTA,RMCS2(RO) ;SELECT PORT 
PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION ~ TYPEOUT 
RMEC2(RO),-(SP) ;STORE REGISTER C2, PORT A, FOR CHECK 
RMEC1 (RO) .- 2ST REGISTER RMEC1, PORT A, FOR CHECK 
ake ins tap f ih: STER « PORT A, FOR CHECK 


A, FOR CHECK 


RMMR 1 ( >ST 
AMER (RO). »~(SP) :STORE REGISTER RMER1. PORT A. FOR CHECK 


;WAIT FOR PORT 8 TO TIMEOUT 


SEQ 0048 


C 
T 


Z 
3 


005760 


012637 


023727 
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000012 
001260 
007344 
000340 
001256 
066324 


001272 
001274 


001256 


177777 
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177776 
001270 


000764 


177776 


1$: 


2$: 


; VERIFY 


: VERIFY 
3$: 
;VERIFY 


66$: 


001254 67$: 





TST RMDS (RO) WAIT FOR THE DRIVE TO TIMEOUT 

BNE 2$ “BR oe + eal OCCURS 

TST WATCH “CHECK WA TCH 

BNE 1$ ;BR IF NOT ZERO 

EMT 36 

JMP 4$ ;BYPASS TIMEOUT TIME CHECK 

MOV H#<7%32.>,0APS ;SET PRIORITY TO 7 TO STOP CLOCK 

MOV TIME, TIMEB + SAVE THE ELAPSED TIME FOR PORT B 

JSR R5,TOLER i; CALCULATE THE TOLERANCE 

. WORD TIMEB ; TIMEOUT VALUE FOR PORT B 

MOV (SP)+, TIMEBP +25% TOLE RANCE 

MOV (SP) +, TIMEBM +=25% TOLERANCE 

THAT THE TIMEOUT ONE=SHOT IS AT LEAST 500 MS 

CMP TIME ,4500. ;WAS MEASURED TIME AT LEAST 500 MS? 

BHIS 3$ ;BR IF IT WAS 

EMT 55 

THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 

MOV #<5%32.>,a04PS ;RESTORE PRIORITY TO 5 

THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR ;CLEAR THE ‘RELEASE ERROR * INDICATOR 

MOV ARMDS, ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD RO, SBDADR T 1/0 BASE ADDRESS 

MOV 'PGM' DPR! DRY, SGDDAT | eae CONSTANT 

MOVB PORTA, RMCS2 (ROD SELECT PORT 

MOV RMDS (RO) , $ T THE DRIVE” STATUS REGISTER FROM PORT A. 
BIC #P IP! WRL ‘OM, $TMPE 7CLEAR | DONT CARES 

MOV MP2 ,$T ; COPY Y IT. INTO ° 

BIC MATA! VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
MO PORTB,RMCS2(RO) :SELECT PORT B. 

MOV RMDS (RO) .$ = GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC APIP'WRL 'OM,STMP ;CLEAR DONT CARES 

MOV STMP3.$T ; COPY IT INTO ‘S$TMP1° 

BIC MATA! VV,STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
a STMPO ST iS r-_ REGISTER THE SAME FROM BOTH PORTS ? 
TST STMPO *REGISTERS ARE THE SAME: ARE THEY ZERO ? 
oa :BR IF NOT 

JMP 70$ sBYPASS THE REST OF THE CHECKS 

MOV STMP2 , SBDDAT SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PT sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) * SEL LECT PORT B. 

TST ;SEE IF STATUS EQ 0 FROM PORT A. 

BEQ “BR IF ZERO 

MOV PORTA,PTNBR s SEIZING PORT IF TEST ee DRIVE NOT IN NEUTRAL 
MOV STMP3,SBDDAT ; "BAD a Ak ERROR TYPE OUT 

MOVB PORTA,RMCS2(RO) : SELECT 

ao al SEE id STATUS. EQ ZERO FROM PORT B. 

oad ata “SET RELEASE ERROR‘ INDICATOR 


SES EE ee SO eee We - . — - 


SEQ 0049 


en 
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001126 
001240 
001126 
001126 


001126 


001126 
001240 
001122 
001122 
001122 
001122 
001122 
001122 
001122 


001122 


68$: 


69$: 


70$: 
;CHECK THE REGISTERS STORED THROUGH PORT A, 


MOV $TMP2, SBDDAT 
MOV PORTA.PTNBR 
BIC #ATA! VV, $BDDAT 
CMP SGDDAT, , $BDDAT 


? 
MOV $TMP3, $BDDAT 
MOV PORTB.PTNBR 
BIC WATA! VV, $BDDAT 
CMP $GDDAT, , $BDDAT 


SEQ 0050 
;LOOK FOR BIT FAILURES WHEN RMDS READ 
; CHANGE PORT NUMBER 


DON'T “ses ATIN BIT OR vv BIT 
ALL BITS OK 


;BR IF OK PROM PORT A 


; CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
; CHANGE PORT NUMBER 


:DON'T CHECK ATIN BIT OR VV BIT 
iSEE IF READ OK FROM PORT B. 


ALL REGISTERS SHOULD BE ZERO. 


>THE REGISTERS ARE STORED ON THE STACK. 


4$: 


MOV PORTA,PTNBR 
MOV RO,$BDADR 
ADD #RMER1 , SBDADR 
MOV ee 
_ 

6 
MOV ye Fo ges 


#RMMR1 , SBDADR 
MOV (SP) +,$BDDAT 
BEQ . +4 


6 
MOV RO, $BDADR 
#RMDA , SBDADR 
MOV (SP) +, $BDDAT 
BEQ ee 
MOV RO, SBDADR 
#RMDT . SBDADR 
MOV — 


BEQ . 

EMT 6 

MOV RO, S8DADR 
ADD #RMLA,$BDADR 
MOV (SP) +, $BDDAT 
BEQ +4 

EMT 6 

MOV RO, $BDAD 

ADD ARMER2, SBDADR 
MOV (SP)+, $BDDAT 
BEQ +4 


6 
MOV RO, $BDADR 
#RMOF , SBDADR. 
MOV (SP) +, $BDDAT 
. +4 
6 
MOV RO, $BDADR 


ADD #RMDC , SBDADR 
MOV + «a , SBDDAT 
+ 


; CHANGE *PORT NUMBER’ TO THE OPPOSITE PORT 
:BASE ADDRESS FOR jo gle RMER1 
;ADDRESS OF RMER1 F 


FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMERT 


:CONTENTS ZERO ? 
sBASE ADDRESS FOR REGISTER RMMRI 
sADDRESS OF RMMRI FOR TYPEOUT 


F 
sCHECK THE STORED CONTENTS OF RMMR1 


:CONTENTS ZERO ? 


sBASE ADDRESS FOR get RMDA 
sADDRESS OF RMDA FOR TYPEOUT 
:CHECK THE STORED CONTENTS OF RMDA 


: CONTENTS ZERO ? 


:BASE ADDRESS FOR gd RMDT 
ADDRESS OF RMDT FOR TYPEOUT 

>CHECK THE STORED CONTENTS OF RMDT 
:CONTENTS ZERO ? 


sBASE ADDRESS FOR ieee RMLA 
; ESS OF 


S RMLA FOR TYPEQUT 
;CHECK THE STORED CONTENTS OF RMLA 
:CONTENTS ZERO ? 


BASE ADDRESS FOR ao a i RMER2 
ADDRESS OF RMER2 FOR TYPEOUT 
sCHECK THE STORED CONTENTS OF RMER2 


:CONTENTS ZERO ? 


s;BASE ADDRESS FOR aa tonke RMOF 
sADDRESS OF RMOF FOR TYPEQUT 
CHECK THE STORED CONTENTS OF RMOF 
: CONTENTS ZERO ? 


sBASE ADDRESS FOR «gt 3 RMDC 
:ADDRESS OF RMDC FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDC 
:CONTENTS ZERO ? 


ee ee ee 
LLL SS ene se sl sess sete eh eee et —- —— _ ~- 


mi. 


007752 


om 
wo 
mc 


112737 
012706 
012737 


005037 
012737 


113760 


001224 


001122 
001122 


001122 


oi ane 
001106 
001110 
001102 
001176 


007250 


000010 


6 
MOV RO, $BDADR sBASE ADDRESS FOR REGISTER RMSN 
ADD #RMSN, SBDADR sADDRESS OF RMSN FOR TYPEOUT 
MOV (SP) +, $BDDAT ; CHECK THE STORED CONTENTS OF RMSN 


BEQ +4 :CONTENTS ZERO ? 


6 
MOV RO, $8DADR :BASE ADDRESS FOR REGISTER RMEC1 
ADD #RMEC1,$BDADR ADDRESS OF RMEC1 FOR TYPEOUT 

MOV (SP)*, $BDDAT = CHECK THE STORED CONTENTS OF RMECT 
BEQ :CONTENTS ZERO ? 


a 
MOV RO,$8 BASE ADDRESS FOR pe th RMEC2 
ADD ARIE CD, SBDADR sADDRESS OF RMEC2 FOR TYPEOUT 


MOV (SP)+,$BDDAT § :CHECK THE STORED CONTENTS OF RMEC2 
BEO +4 “CONTENTS ZERO ? 
5$: SCOPE :LOOP ? 
CREAR ERAAEARAAEARAEAARERAREHRERRERREERERKRKKEEEE 
: ATEST 4 PORT 'A' SEIZE/RELEASE TEST 
« STEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
*"*® 
:* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
** 
:* B. SET VOLUME VALID AND CLEAR ANY ERROR 
-* 
:* C. ISSUE A RELEASE COMMAND THROUGH PORT'A’. VERIFY THAT THE DRIVE 
* RE TURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
** . 
EER SAE Cen A ae CO PEAT TORY Sa oo 
TST4: 
TST kYBCTL : PERFORMING ONLY SINGLE TEST ? 
BPL 1$ “BR IF JUST ENTERED TEST 
JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
1$: MOV #~1,KYBCTL SET SINGLE TEST INDICATOR 
2$: MOV ATESTG.$LPADR :SETUP SCOPE LOOP ADDRESS 
atten MOV ATEST4,S$LPERR :SETUP ERROR LOOP ADDRESS 


MOVB #4.$TSTNM :MOVE #4 TO TEST NUMBER 

MOV WSTACK, SP ‘LOAD THE STACK POINTER 

MOV #10. .STIMES ::D0 70. ITERATIONS 
:START THE TIMER 


CLR TIME >CLEAR THE ELAPSED — COUNTER 
MOV #2000. ,WATCH :SET WATCH TO 2000. 


SEIZE THE DRIVE AND SET VOLUME VALID 
sSEIZE THE DRIVE THROUGH PORT A 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 


SEQ 0051 


N 4 
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"A" SEIZE/RELEASE TEST SEO 0052 
007760 013737 001224 001242 MOV PORTA, SEIZPT : STORE SEIZING PORT'S ADDRESS 
007766 005060 000012 CLR RMDS (RO) E RMDS 
007772 013737 001226 001244 MOV PORTB,OPPRT ; OPPOSITE’ PORT ADDRESS 
010000 012760 000021 000000 MOV #21,RMCS1(RO) ET VOLUME VALID 
010006 005037 901250 CLR CKERR CLEAR THE “CHE Ck ERROR’ INDICATOR 
010012 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
010020 012737 000012 001122 MOV W#RMDS,S$BDADR ;FORM R REGISTER ADDRESS OF ERROR MESSAGE 
010026 060037 001122 ADD RO, $BDADR “ADD RH/RM BASE ADDRESS 
010032 012737 000100 001124 MOV #VV,$GDDAT ;WHAT REGISTER SHOULD BE 
010040 013737 001126 001164 MOV SBDDAT,$TMPO = ;MOVE REGISTER CONTENTS TO ‘$TMPO’ 
010046 042737 177677 001164 BIC #*CVV,$TMPO ; SAVE SPECIFIED D BITS 
010054 023737 001124 001164 CMP SGDDAT,$TMPO —_; COMPARE THE BITS 
010062 001414 BEQ 66$ F OK 
010064 013737 001126 001174 MOV SBDDAT . STMP4 :COPY "BAD DATA’ 
010072 042737 000100 001174 BIC #VV,STMPG ;CLEAR THE MASKED BITS 
010100 053737 001174 001124 BIS $TMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
010106 104013 EMT 1 
010110 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
010114 000240 66$: NOP 
610116 012760 000040 000010 MOV #CLR,RMCS2(RO) :CLEAR DRIVE 

:RELEASE THE DRIVE FROM PORT A 
010124 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
010132 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010140 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 

: VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
010146 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ° INDICATOR 
010152 012737 000012 001122 MOV #RMDS , SBDADR :F ORM THE ADDRESS OF RMDS FOR TYPEOUT 
010160 060037 001122 ADD RO, $BDADR D THE I/O BASE ADDRESS 
010164 012737 011600 001124 MOV MMOL |PGM'DPR!DRY’ S@DDAT ; COMPARISON CONSTANT 
010172 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT 
010200 016037 000012 001170 MOV RMDS(RO).$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
010206 042737 024001 001170 BIC #PIP'WRL'OM, $TMP2 :CLEAR DONT CARES 
010214 013737 001170 001164 MOV $TMP2, STMPO COPY IT INTO "$TMPO' 
010222 042737 100100 001164 BIC HATA! VV,$STMPO : CLEAR PORT DEPENDENT BITS FROM THE COPY 
010230 113760 001226 000010 MOVB §§ PORTB,RMCS2(RO) :SELECT PORT B. 

36 016037 2 001172 RMDS (RO) , STMPS “GET THE DRIVE STATUS REGISTER FROM PORT B. 
010244 042737 024001 001172 BIC #PIP!WRL'OM,$TMPS :CLEAR DONT CARES 
010252 013737 001172 001166 MOV STMP3,STMP1 >COPY IT INTO *$TMP1' 
010260 042737 100100 001166 BIC W#ATA!VV.$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
266 023737 001164 001166 CMP STMPO,$TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
010274 001006 BNE  68$ F NOT 
010276 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
010302 001037 BNE 70$ -BR IF NOT 
10304 104046 EMT 46 
000137 010472 JMP 72$ :BYPASS THE REST OF THE CHECKS 

010312 013737 001170 001126 68$: MOV S$TMP2,SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSA 
010320 013737 001226 001240 MOV PORTB,PTNBR *SEIZING PORT IF TEST SHOWS DRIVE NOT ie NEUTRAL 
010326 113760 001226 000010 MOVB §PORTB.RMCS2(RO) :SELECT PORT B. 
010334 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A 
010340 001414 BEQ 69$ “BR IF ZERO 
010342 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010350 013737 001172 001126 MOV STMP3,$BDDAT _: ‘BAD DATA' FOR ERROR TYPE OUT 
010356 113760 001224 000010 MOVB = PORTA, RMCS2(RO) :SELECT PORT A 


40 


B 5 
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*A’ SEIZE RELEASE TEST 


:; IF RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEGUT 


0364 005737 001166 TST $TMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
010370 001004 BNE 70$ T 
010372 012737 177777 001254 69%: MOV #=1,RELERR SET RELEASE ERROR’ INDICATOR 
010400 104022 EMT 22 
010402 013737 001170 001126 70$: MoV STMP2,$BDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
010410 013737 001224 001240 MOV PORTA.PTNBR PORT NUMBER 
| 010416 042737 100100 001126 BIC WATA'VV,$BDDAT <DON'T CHE CK ATTN BIT OR WV BIT 
010424 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS Ok ? 
| 010432 00140 BEQ 71$ ‘BR IF OK FROM PORT A. 
0434 10400 EMT 7 
| 10436 013737 001172 001126. 71$: MOV STMP3, SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
010444 013737 001226 001240 MOV PORTB. = CHANGE PORT R 
| 010452 042737 100100 601126 BIC aATAT CY. SBDDAT ;DON’T CHECK ATIN BIT OR vv BIT 
| 010460 023737 001124 001126 CMP SGDDAT,$8DDAT  :SEE IF READ OK FROM PORT B. 
| 010466 001401 BEQ 72$ ;BR IF OK 
| 010470 104007 EMT 7 
| 010472 000240 72$: NOP 
| 010474 005737 001254 TST RELERR :DID DRIVE RE TURN TO NEUTRAL ? 
010500 001402 BEQ +6 :BR IF IN NEUT 
610502 000137 010756 JMP i$ :GO WAIT FOR DRIVE TO TIMEOUT 
010506 113760 001224 000010 MOVB  PORTA,RMCS2(RO) °:SELECT PORT 
010514 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010522 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
010526 016037 000012 001126 MOV RMDS(RO),S$BDDAT :GET CONTENTS OF RMDS 
010534 012737 000012 001122 MOV #RMDS.SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
010542 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 
010546 005037 001124 CLR SGDDAT :WHAT REGISTER SHOULD BE 
010552 013737 001126 001164 MOV SBDDAT,.STMPO §:MOVE REGISTER CONTENTS TO 'STMPO" 
2737 077777 +001164 BIC #°CATA,STMPO SAVE SPECIFIED BITS 
023737 001124 001164 CMP SGDDAT,STMPO ~ ; COMPARE THE BITS 
010574 001414 BEQ 73$ [BR IF OK 
010576 013737 001126 001174 MOV SBDDAT,.STMP4 =: COPY "BAD DATA’ 
0 042737 001174 BIC HATA, STMP4 :CLEAR THE MASKED BITS 
010612 093737 001174 001124 BIS STMPS , SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
010622 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
010626 000240 73$: NOP 
010630 113760 001226 000010 MOVB PORTB.RMCS2(RO) =:SELECT PORT B 
010636 013737 001226 001240 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010644 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
010650 016037 000012 001126 MOV RMDS(RO),$BDDAT “:GET CONTENTS OF RMDS 
010656 012737 000012 001122 MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
010664 060037 001122 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
010670 005037 001124 CLR SGDDAT ‘WHAT REGISTER SHOULD BE 
010674 013737 001126 001164 MOV SBDDAT,S$TMPO § :MOVE REGISTER CONTENTS TO ‘STMPC" 
010702 042737 077777 001164 BIC W°CATA,STMPO :SAVE SPECIFIED BITS 
010710 023737 001124 001164 CMP SGDDAT,$TMPO — :COMPARE THE BITS 
010716 001414 BEQ 75$ “BR IF OK 
720 013737 001126 001174 MOV SBDDAT,$TMP4 §:COPY ‘BAD DATA" 
010726 042737 001174 BIC HATA, STMP4 ; CLEAR THE MASKED BITS 
053737 001174 001124 BIS STMP4,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
010742 104017 EMT 17 
010744 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
010750 000240 75$: NOP 
010752 000137 011010 JMP 23; :GO CHECK FOR LOOP ON ERROR 








A eS -_— -—-- - = -- - = 


SEQ 0053 


* tr ee’ 24¢ DU POR TST 1 
*A* SEIZE/RELEASE T 


010756 


01 
011010 


011070 
011074 


113760 
013737 
005760 
001004 
005737 
001364 
104036 
000004 


012737 


112737 
012706 
012737 


005037 
012737 


001226 
001226 
000012 


001260 


001300 


003074 
177777 
011050 
011050 


000005 
001100 
000012 


001256 
003720 
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000010 
001240 


001260 


000010 
001242 


001244 
000000 


001126 


;TO RELEASE THE DRIVE 


1$: 
MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RMDS (RO) :WAIT FOR TIMEOUT TO RELEASE DRIVE 
BNE 2$ “BR WHEN DRIVE RELEASED 
TST WATCH “CHECK T HE WATCH 
BNE 1$ “BR IF NOT ZERO 
2$: SCOPE :LOOP ? 


CREAR AAA E ARERR EAAREREREREEREEEREEREREEEERRERKEHEEEE 


: TEST 5 PORT 'B' SEIZE/RELEASE TEST 
:sTEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 


'* A. SEIZE THE DRIVE THROUGH PORT ‘8’ BY WRITING O'S INTO RMDS. 
-* 
;* B. SET VOLUME VALID AND CLEAR ANY ERROR 
* 
:* (C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
** * 
pe PLE ES RAO ee aT ee APY 5 
TST5: 
TST = KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ = $ :BR IF NOT 
BPLtédTS :BR IF JUST ENTERED TEST 
JMP EXEC RETURN & GET NEXT TEST NUMBER 
1$: MOV = #1 ,KYBCTL :SET SINGLE TEST INDICATOR 
2$: MOV = #TESTS,S$LPADR :SETUP SCOPE LOOP ADDRESS 
rests, MO —«ATESTS.SLPERR =; SETUP ERROR LOOP ADDRESS 
" MOVB = (#5, STSTNM :MOVE #5 TO TEST NUMBER 
MOV  - #STACK SP {LOAD THE STACK POINTER 
MOV =: #10. , STIMES DO 10. ITERATIONS 
:START THE TIMER 
CLR TIME :CLEAR THE ELAPSED TIME COUNTER 
MOV  #2000.,WATCH SET WATCH TO 2000. MS 


SEIZE THE DRIVE AND SET VOLUME VALID 
sSEIZE THE DRIVE THROUGH PORT B 


PORTB,RMCS2(RO) 
MOV PORTB, SEIZPT 
RMDS (RO) 


:SELECT PORT B 
;STORF SEIZING PORT'S ADDRESS 
:WRITE RMDS 


ITE 
PORTA,OPPRT ; “OPPOSITE* PORT ADDRESS 
#21 ,RMCS1 (RO) 


SET VOLUME VALID 
CLR CKERR ;CLEAR THE "CHECK ERROR" INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 


SEQ 0054 


BUN LS I Se 
vw 
BBNANRASOTS 


OLfO 


Qoooo0co 
2S SS 
ed ed aed eed ed ed 
MMAMAMIAAWA 
ONOnNos 


012737 
060037 


000240 
012760 


113760 
013737 
012760 


013737 
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001170 
001224 
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001122 
001124 
001164 
001174 


001174 
001124 


000010 


000010 
001240 
000000 


0000 
001170 


001240 
001126 
000010 


001254 


001126 
001240 


66$: 


>; VERIFY 


68$: 


69$: 


70$: 


MOV 





ARMDS, _ 
RO,$BDA 
AV SGDDAT 


DAT, $TMP 
#ACYV STP. 
SGDDAT,$ 
66$ 
SDDAT . STMP4 

V,STMPS 
sTmBe, ,$GDDAI 
CKERR 


#CLR,RMCS2(RO) 


sRELEASE THE DRIVE FROM PORT B 


PORTB, RMCS2(RO) 
PORTB,PT 
#13,RMCS1(RO)- 


RELERR ;CLEAR THE "RELEASE ERROR ° INDICATOR 
ARMDS , : THE ADDRESS OF RMDS FOR TYPEOUT 
RO, $BDADR : THE 1/0 BASE ADDRESS 
#MOL!PGM'DPR!DRY,S$GDDAT ;COMPARISON CONSTANT 
PORTA,RMCS2(RO) :SELECT PORT A. 
RMDS(RO),S$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP'WRL ‘OM, $TMP? :CLEAR DONT CARES 
STMP2, STMPO :COPY IT INTO "S$TMPO’ 
WATA!VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB,RMCS2(RO) :SELECT PORT 
RMDS(RO).$ “GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP'WRL'OM, :CLEAR DONT CARES 
STMP3,STMP1 >COPY IT INTO STMP1 
#ATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COP 
STMPO.$T iS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
$TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
ng :BR IF NOT 
72$ :BYPASS THE REST OF THE CHECKS 
STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
; :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB.RMCS2(RO) :SELECT PORT B. 
$TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
69S “BR IF ZERO 
PORTA, PTNBR ; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
$TMP3, SBDDAT "BAD DATA’ FOR ERROR TYPE OUT 
PORTA’RMCS2(RO) =SELECT PORT A 
STP) SEE IF, STATUS EQ ZERO FROM PORT B. 
4-1 .RELERR “SET "RELEASE ERROR" INDICATOR 
STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 


PORTA,PTNBR 


sFORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 


IF OK 
COPY "BAD DA 


s WHAT REGISTER SHOULD BE 
:MOVE REGISTER CONTENTS TO ‘$TMPO’ 
: SAVE SPECIFIED D BITS 
;COMPARE T 


HE BITS 
TA‘ 


‘CLEAR THE MASKED BITS 
:'OR' WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERKOR INDICATOR 


;CLEAR DRIVE 


; SELECT PORT 8 


ADDRESS TO oe gehe _ TYPEOUT 


vE PORT 
; ISSUE RELEASE THROUGH POR 
THAT THE DRIVE IS STILL IN NEUTRAL 


; CHANGE 


PORT NUMBER 


— - 


PORT *R' 


6 
4 


Owns 
Nm 


011644 


1656 
011664 


011716 
011724 
011726 
011734 
011742 
011750 
011752 
011756 
011760 
011766 
011774 


012040 
C12046 
on Ses 


012074 
012100 
012102 
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042737 100100 
001401 001124 


104 
313937 001172 
00 


013737 001226 
o aee, 00001 


tA 001124 
001414 

013737 9 BAL 
042737 100000 
rae oe, 001174 
104017 

005137 001250 
000240 

113760 001224 


013737 001224 
005037 001250 


tA 001124 
013737 001126 
737 «(1 


1 
005137 001250 
000240 
000137 612140 


13760 001224 
13737 001224 
05760 000012 


oo~= 


nm 
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001126 
001126 


001126 


— — 2 — > —b SS 


000010 
001240 


71$: 


72$: 


73$: 


75$: 


JMP 


MATA! VV,$BDDAT 


;DON'T rae ATTN BIT OR VV BIT 


$GDDAT,$BDDAT ALL BIT 
ris 


STS. SBDDAT 
PORTB.PTNBR 
#ATA'VV, SBDDAT 
SCDDAT. ,$BDDAT 


;BR IF OK FROM PORT A. 
;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
; CHANGE PORT NUMBER 


;DON'T CHECK ATIN BIT OR Vv BIT 
:SEE IF READ OK FROM PORT B. 


RELERR :DID DRIVE RETURN TO NEUTRAL ? 
+6 “BR IF IN NEUTRAL 
i$ :GO WAIT FOR DRIVE TO TIMEOUT 
PORTB, RACS2(RO) ‘SELECT PORT 
PORTS PT nove PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR LEAR THE ‘CHECK ERROR’ INDICATOR 
RDS RO), SBDDAT GET CONTENTS OF RMDS 
#RMDS , :FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SB5ADR :ADD RH/RM BASE ADDRESS 
SGDDAT :WHAT REGISTER SHOULD BE 
SBDDAT,$TMPU  :MOVE REGISTER CONTENTS TO ‘STMPO’ 
W*CATA,S$STMPO :SAVE SPECIFIED BITS 
SGDDAT . STMPO : COMPARE THE BITS 
SBDDAT.$TMP4 §: COPY "BAD DATA’ 
HATA, STMP4 :CLEAR THE MASKED BITS 
TMP4,$GDDAT  :‘'OR' WITH GOOD DATA FOR TYPEOUT 

CKERR . :SET THE REGISTER COMPARE ERROR INDICATOR 
PORTA,RMCS2(RO) :SELECT PORT A 
PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR CLEAR THE *CHECK ERROR’ INDICATOR 
RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
#RMDS .SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $8D :ADD RH/RM BASE ADDRESS 

DAT “WHAT REGISTER SHOULD BE 
SBDDAT.STMPO = :MOVE REGISTER CONTENTS TO ‘STMPO’ 
#°CATA,$TMPO ; SAVE SPECIFIED BITS 
SGDDAT . $TMPO OMPARE THE BITS 

“BR IF OK 

$BDDAT.STMP4 = : COPY "BAD DATA’ 
HATA, STMP4 =CLEAR THE MASKED BITS 
STMPS, ,SGDDAT  :'OR*® WITH GOOD DATA FOR TYPEOUT 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
2$ :GO CHECK FOR LOOP ON ERROR 


:1F RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
;TO RELEASE THE DRIVE 


1$: 


MOVB 


MOV 
TST 


PORTA,RMCS2(RO) 
PORTA,PTNBR 
RMDS (RO) 





sSELECT PORT A 
sMOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
sWAIT FOR TIMEOUT TO RELEASE DRIVE 


Se ee ee ee eens eee _—= 
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75 PORT ‘B® SEIZE/RELEASE TEST SEQ 005/ 
012126 001004 BNE 2$ * ;BR WHEN yh oo 
012130 005737 601260 TST WATCH iCHECK THE W 
012134 001364 BNE 1$ :BR IF NOT SERO 
012136 104036 EMT 36 
912140 000004 2$: SCOPE ;LOOP ? 
246 
255 
256 2 SASSORRONSAet OCS SeyoLeseterensuNbanrabenenersonteeteoeseoecees 
“Test 6 PORT ‘A* NEUTRAL/RELEASE TEST 


TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


ee 83% 92 9 ee aoa ee 


>* A, ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ WITH THE ‘ORIVE IN 
st NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL 
Sali ea lita lal eite alah cic tacaentiati tinal eae ep eemeeeent 
012142 ST6: 
912142 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
012146 001406 BEQ 2$ “BR IF NOT 
612150 100002 BPL 1$ “BR IF JUST ENTERED TEST 
012152 000137 003074 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
012156 012737 177777 001300 1S: MOV #-1 KYBCTL :SET SINGLE TEST INDICATOR 
012164 012737 012200 001106 28: MOV #TEST6,$LPADR :=SETUP SCOPE LOOP ADDRESS 
012172 012737 012200 001110 cea MOV #TEST6,$LPERR :SETUP ERROR LOOP ADDRESS 
012200 112737 000006 001102 MOVB 4#6,$TSTNM ;MOVE #6 TO TEST NUMBER 
012206 012706 001100 MOV #STACK, SP LOAD THE STACK POINTER 
sai 012212 012737 000012 001176 MOV #10. .STIMES = D0 10. ITERATIONS 
268 012226 113760 001224 000010 MOVB PORTA, RMCS2(RO) =SELECT PORT A 
012226 013737 001224 001240 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TY°EOUT 
012234 013737 001224 001242 MOV PORTA,SEIZPT _:ADDR OF PORT WHICH WILL ISSUE RELEASE 
ZISSUE A RELEASE COMMAND 
012242 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE A RELEASE COMMAND 
ZVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
012250 005037 001254 CLR RELERR : CLEAR THE "RELEASE ERROR ° INDICATOR 
012254 012737 000012 001122 MOV ARMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
012262 60037 001122 ADD RO, SBDAD :ADD THE 1/0 BASE ADDRESS 
012266 012737 011700 001124 MOV PMOL | PGM!DPR!DRY VW SGDDAT :COMPARISON CONSTANT 
012274 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A. 
012302 016037 000012 007170 MOV RMDS (RO) , STMP2 “GET THE DRIVE STATUS REGISTER FROM PORT A. 
012310 042737 024001 001170 BIC #PIP'WRL'OM, $TMP2 CLEAR DONT CARES 
012316 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO ° 
012324 042737 100100 001164 BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
012332 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
012340 016037 900012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
012346 042737 024001 001172 BIC #PIP!WRL'OM, $TMP CLEAR DONT CARES 
012354 013737 001172 001166 MOV STMP3,$TMP1 :COPY IT INTO ‘$TMP1' 
012362 042737 100100 001166 BIC #ATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
012370 023737 001164 001166 CMP S$TMPO,$TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2 
012376 001006 BNE 64$ IF NOT 
012400 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
012404 001045 BNE 66$ *BR IF NOT 
0126406 104046 EMT 46 


Lee ee ee ee ee me ee —— 


eerste 


269 
279 


280 
281 


012410 


012614 


012672 
012700 
012706 


012737 


112737 
012706 
012737 


113760 
013737 
013737 


+ aaa ee ie DU POR TST 1 


012610 


177777 
000011 
000013 
001770 


001724 


001300 


003074 
177777 
012652 
012652 
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*A' attestation TEST 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


001126 


001126 


C01126 


001110 
001102 
001176 
000010 


001240 
001242 


64$: 


65$: 


66$: 


67$: 


68$: 


JMP 68$ 
MOV $TMP2 , SBDDAT 
MOV PORTB,PTNBR 


MOVB PORTS ,RMCS2(RO) 
TST $TMPU 

BEQ 65$ 

MOV PORTA,PTNBR 
MOV $TMP3, $BDDAT 
MOVB PORTA,RMCS2(RO) 
TST STMP1 

BNE 66$ 


MOV #~1,RELERR 
#11,RMCS1(RO) 
MOV #15, »RMCS1 (RO) 


MOV $TMP2, $BDDAT 
MOV PORTA.PTNBR 
BIC #ATA, $BDDAT 

CMP SGDDAT , $BDDAT 


EMT 7 
MOV $TMP3 , $BDDAT 
MOV PORTB,PTNBR 


CMP SGDDAT , SBDDAT 
68$ 


;BYPASS THE REST OF THE CHECKS 


Se Ge Be Be Be Bea Be Be 


;BR 
+ 


SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING sont IF TEST SHOWS DRIVE NOT IN NEUTRAL 


CT B. 

Hd oo EQ 0 FROM PORT A 

ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
C 

J 

F 


7 SEL 
; SEE 
I 


E 
J 
Z 
; BAD D 
ECT P 
F 
] 


 ~ 
m 


gi ara ERROR TYPE OUT 
STATUS EQ ZERO FROM PORT B. 


‘SET "RELEASE ERROR’ INDICATOR 
;CLEAR THE DRIVE 
;RELEASE THE DRIVE 


sLOOK FOR BIT FAILURES WHEN RMDS READ 
HANGE PORT NUMBER 


st 

:DON'T CHECK THE ATTN BIT 
sALL BITS OK ? 

;BR IF OK FROM PORT A. 


:CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
+ CHANG NUMBER 


E PORT 
:DON'T CHECK THE ATTN BIT 
;SEE IF READ OK FROM PORT B. 
;BR IF OK 


sLOOP ? 


5 TEAR EEAKEEREREAREAEEKEREEREREREEEKKKHKRHERRKEREE 


s*TEST 7 


PORT ‘B* NEUTRAL/RELEASE TEST 


** 
sSTEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


a cae: 
** 
** 
5 


173 


1$: 
2$: 


TEST?: 


ISSUE A RELEASE COMMAND THROUGH 


PORT *B* WITH THE DRIVE IN 


NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


TST KYBCTL 
2$ 


BEQ 

BPL 1$ 

JMP EXEC 

MOV 4-1 ,KYBCTL 
MOV #TEST7,$LPADR 
MOV #TEST7,SLPERR 
MOVB 47 ,STSTNM 


MOV ASTACK, SP 


MOV #10. STIMES 


PORTB, vas Mal 
MOV PORTB,PTNBR 
MOV PORTB,SEIZPT 


REE AREEKERREKRAREEKEERERAEAEEARKEERERRERAERKEEKKEEEEEEKEKERAEREE EEE 


sPERFORMING ONLY SINGLE TEST ? 
BR IF NOT 


:BR_IF JUST ENTERED TEST 


>RE TURN 


& GET NEXT TEST NUMBER 


“SET SINGLE TEST INDICATOR 
“SETUP SCOPE LOOP ADDRESS 
=SETUP ERROR LOOP ADDRESS 


sMOVE #7 TO TEST NUMBER 
;LOAD THE STACK POINTER 


::D0 10. 


ITERATIONS 


;SELECT PORT 


ee Oe eee eee | eee 


B 
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
:ADDR OF PORT WHICH WILL ISSUE RELEASE 


SEQ 0056 


CZRMRBO RMOS/3/2 DU POR TST 1 
PORT *B* NEUTRAL/RELEASE TEST 


. —_---: 
_ Eee nnnes meen - 


282 
301 
302 


012714 


012722 


012760 


600013 


100 
001124 
001172 


001124 
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000000 


001122 
001124 


001166 


001126 


001126 


; ISSUE A RELEASE COMMAND 
MOV #i3,RMCS1(RO) 


THAT THE DRIVE IS STILL IN NEUTRAL 


; VERIFY 


64$: 


65$: 


66$ : 


67$: 


68$: 


RELERR 
RO, 


#RMDS , $BDADR 
$BDADR ;AD 

#MOL !PGM'! DPR! DRY! VV,$GDDAT 

PORTA,RMCS2(RO) 

RMDS 2 


#ATA'VV,STMPO 


PORTB,RMCS2(RO) 
STMP3 
#PIP'WRL'OM, $TMP3 
3,$TMP1 


RMDS 
STMP 


(RO), 


#ATA!VV,$TMP1 
STMPO ,STMP1 


64$ 
$STMPO 
66$ 
46 


68$ 
STMP2 , SBDDAT 


PORTB,PTNBR 
PORTB,RMCS2(RO) 
$STMPO 


65$ 


PORTA,P”~ NBR 
$TMP3 , SBDDAT 


PORTA,RMCS2(RO) 
STMP1 


66$ 
#~1, 


RELERR 


#11,RMCS1(RO) 
irene ey) 


$TMP2, $BDDAT 
PORTA.PTNBR 
#ATA, $BDDAT 


SGDDAT , SBDDAT 
67$ 


7 

$TMP3, SBDDAT 
PORTB.PTNBR 
HATA, $BDDAT 


SGDDAT , SBDDAT 
68$ 


; ISSUE A RELEASE COMMAND 


PORT 
‘GET THE DRIVE. STATUS REGISTER FROM PORT A. 
2 ONT CARES 


; DEPE 

is a REGISTER THE SAME FROM B BOTH PORTS ? 
REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 


sCLEAR THE ‘RELEASE ERROR ° INDICATOR 
;FORM THE ADDRESS OF RMDS FOR TYPEOUT 


D_ THE 1/0 BASE ADDRESS 


SELECT 


ieeennseen CONSTANT 


; CLEAR 
;COPY IT INTO ‘$TMPO* 


;CLEAR PORT DEPENDENT BITS FROM THE COPY 

;SELECT PORT B. 

;GET THE DRIVE STATUS REGISTER FROM PORT 8B. 
DONT CARES 


NDENT BITS FROM THE C 


sBYPASS THE REST OF THE CHECKS 


>SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


T B. 
eSEE ,’ ten EQ 0 FROM PORT A 


RO 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


; "BAD DATA’ +s ERROR TYPE OUT 


SSELECT PORT 
SEE IF STATUS” EQ ZERO FROM PORT B. 
:BR IF NOT 


SET "RELEASE ERROR’ INDICATOR 
THE DRIVE 
:RELEASE THE DRIVE 


: CLEAR 


;LOOK FOR BIT FAILURES WHEN RMDS READ 
HANGE NUMBER 


30 PORT 
:DON'T CHECK THE ATIN BIT 


SALL BITS OK ? 


:BR IF OK FROM PORT A. 


: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
E NUMBER 


; CHANG PORT 

DON' T CHECK THE ATTN BIT 
;SEE IF READ OK FROM PORT B. 
:BR IF OK 


;LOOP ? 


° STROH HARE ERA RAE EREARRERAERHARHEARARARAERRE KERR RRe Reese eeeee 


:*TEST 10 


PORT ‘A’ RELEASE INTERFERENCE TEST 


ES EE RE ee oe _—— - 


SEQ 0059 


ss 
+ eee 344 DU POR TST 1 MACRO VO04.00 4=-APR-8!1 18:06:25 PAGE 10-20 


"A RELEASE INTERFERENCE TEST 


| se As 
so UB 
| s8 C. 
| :* 
se Di 
zt 
re 6 
7* 
~ 
015266 TST10: 
013266 005737 001300 
G13272 001406 
013274 100002 
013276 000137 003074 
013302 012737 177777 OO01300 1$: 
013310 012737 013324 001106 2$: 
013316 012737 013324 001110 
013324 TEST10: 


013324 112737 000010 001102 
013532 012706 001100 
_ 0133536 012737 000012 001176 
327 


iAVERIFY THAT A COMMAND ISSUED BY i. PORT IS NOT RECOGNIZED IF THE DRIVE 


S SEIZED BY THE OTHER PORT 
SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O'S INTO RMDS. 
ISSUE A RELEASE COMMAND THROUGH PORT ‘A’, 
VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘BR’. 
RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘A’. 


RELEASE THE DRIVE THROUGH PORT ‘A’, VERIFY THAT a DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


eh eee eR RRR RRR RR RRR RSEE EE SE LOSE LASESSSSSS ES 


TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ ;BR IF NOT 

BPE 1$ ‘BR IF JUST ENTERED TEST 

JMP EXEC sRETURN & GET NEXT TEST NUMBER 
MOV #=-1 ,KYBCTL =SET SINGLE TEST INDICATOR 


MOV #TESTIO,S$LPADR SETUP SCOPE LOOP ADDRESS 
MOV #TESTIO,$LPERR ;SETUP ERROR LOOP ADDRESS 


MOVB #10,$TSTNM sMOVE #10 TO TEST NUMBER 
MOV ASTACK ,SP sLOAD THE STACK POINTER 
MOV #10. ,.STIMES :;D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


013344 113760 001224 000010 
000012 


013412 012760 000013 000000 


MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) :SEIZE THE DRIVE 

MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 

MOVB PORTB,RMCS2(RO) :SELECT PORT #B 

CLR RMDS (RO) sSEIZE THE DRIVE THROUGH PORT ‘B’ 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOY #13,RMCS1(RO) RELEASE THE DRIVE 


:SEIZE THE DRIVE THROUGH PORT B 


013420 113760 001226 000010 
013426 013737 001226 001242 
00 000012 


0135454 013737 001224 001244 
013462 016037 000012 001126 


013474 062737 000012 001122 
005037 

013506 023737 001124 001126 

0135516 104004 


© 
oud 
we] 
Ww 
pa 
. 
8 
oud 
&* 
=) 
LAN 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 

CLR RMDS (RO) :WRITE RMDS 

MOVB PORTA, Nal sSELECT PORT A 

MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 


MOV PORTA, OPPRT ;"OPPOSITE* PORT ADDRESS 

MOV RDS (RO) " waaee :SEE IF DRIVE SEIZED BY PORT B 
MOV RO, $BDA ;RH/RM BASE ADDRE 

ADD #RMDS , SBDADR [GENERATE BAD REGISTER ADDRESS 
CLR $GDDAT :REGISTER SHOULD BE ZERO 

CMP $GDDAT,$BDDAT ;1S THE 32 | shia ZERO 

ir a :BR IF IT IS 


SEQ 0060 


013520 


013622 


013624 
613632 
013640 


013770 
013776 
014004 


014012 
014016 
014024 
0140352 


000137 
113760 


113760 
013737 
012760 


005037 


MRBO RMO5/3/2 DU POR TST 1 
PORT 


014530 


001224 
061224 
000013 


001256 
014530 


001226 
001226 
000013 


001122 
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"A* RELEASE INTERFERENCE TEST 


000010 


001166 
001164 


001164 
001164 


000010 
001240 
000000 


001126 
001122 


001126 


001126 
001122 


001126 


000000 
000010 
001240 
000000 


001124 
001122 


64$: 


65$: 
sTRY TO 


; VERIFY 


66$: 


67$: 





JMP 1$ ;BYPASS REST OF THE SUBTEST 

MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
SEE IF SEIZING PORT SEES CORRECT STATUS 


MOV RMDS (RO), $BDDAT 
BIC #OM'PIP, $BDDAT :CLEAR DONT CARE BITS 
MOV #MOL !PGM' DPR! DRY! VV. $GDDAT EXPECTED STATUS 


MOV $GDDAT,STMP1 ;USE GOOD DATA AS A MASK 
COM STMP1 > COMPLEMENT THE we STATUS 
$BODAT , $TMPO ; SAVE THE ACTUAL STATUS 


MOV 
BIC $TMP1, $TMPO 
CMP SGDDAT , STMPO 


LEAR UNWANTED BITS 
"ARE THE EXPECTED STATUS BITS SET ? 
THEY ARE 


BEQ 65$ sBR IF 

EMT 5 

NOP 

EXECUTE A RELEASE COMMAND THROUGH PORT A 

MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV : T ADDRESS TO LOCATION FOR TYPEOUT 


PORTA,PTNBR ;MOVE POR 
MOV #15,RMCS1(RO) ;ISSUE A RELEASE COMMAND THROUGH PORT A 


THAT THE DRIVE IS STILL SEIZED BY PORT B 

CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
MOV RMDS(RO) ,SBDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR ME SSAGE 


ADD RO, SBDADR ADD _RH/RM BASE ADDRESS 

CLR $GDDAT ;WHAT REGISTER SHOULD BE 

CMP SGDDAT,$BDDAT ;1S THE REGISTER OK ? 

SS pond 

COM CKERR sSET THE REGISTER COMPARE ERROR INDICATOR 
MOV RMCS1(RO),$BDDAT ;GET THE CONTENTS OF RHCS1 

MOV ROC - SBDADR ; FORM ae Bhar OF REGISTER 


ADD RO, $8D : ADDRES 

BIT #MCPE , SBDDAT sIS *‘ACPE’ SET ? 

BEQ 67$ BR IF NOT 

EMT 11 

ted MTRE,RMCS1(RO) ;CLEAR “MCPE* 

TST CKERR WAS RMDS NON ZERO ? 


BEQ . +6 : CONTENTS OF RMDS SEEN BY PORT A 
JMP 1$ :DRIVE IN NEUTRAL, BYPASS REST OF TEST 


sRELEASE THE DRIVE FROM PORT B 


PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO paige FOR TYPEQUT 
MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT B 


;VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


CLR RELERR ;CLEAR ‘RELEASE ERROR INDICATOR 
MOV #ATA!MOL !PGM!DPR'DRY!VV,$GDDAT ; COMPARISON CONSTANT 
MOV #RMDS,$BDADR ;REGISTER ADDRESS INCREMENT 

ADD RO, $BDADR ;REGISTER BASE ADDRESS FOR TYPEOQUT 


ee ee Ee 6 ee ee eee eee ee 8 ee. — -- 


SEG O06! 


4-4 


¢ 
1 


RMRBO RMO5/3/2 DU POR TST 1 
PORT ‘A’ RELEASE INTERFERENCE TEST 


0 


014742 


014144 
014152 
014160 


113760 


113760 
013737 
012760 


001164 
001224 
001124 


177777 
000017 
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001126 


001126 
001240 
001126 


000010 
001240 
000000 


001122 


001254 


70$: 


68$: 


69$: 
sRELEASE THE DRIVE FROM PORT A 


: VERIFY 


71$: 


PORTA, RMCS2 (RO) 
PORTA PT 
RMDS (RO) eTMpO 
PORTB, Rme $2 (RO) 
PORTB.PTNBR 
MDS (RO) , , $BDDAT 


$TMPO 
68$ 
31 

$TMPO , SBDDAT 


PORTA,PTNBR 
$GDDAT , $BDDAT 
69$ 


PORTA,RMCS2(RO) 
-PTNBR ; 
#13,RMCS1(RO) 


; SELECT PORT zi 


“MOVE PORT ADDRESS TO LOCATION FOR aaa 


sREAD STATUS REGISTER FROM PORT 
;SELECT PORT B 


;MOVE PORT ADDRESS TO ree FOR TYPEOUT 


oye STATUS FROM PORT 
F STATUS FROM PORT B ZERO 
HIS STATUS FROM PORT A ZERO ? 
:BR IF ZERO 


sCHECK STATUS FROM PORT 
; CHANGE PORT ADDRESS FOR. TYPEOUT 
: COMPAR — CONSTANT 


;SELECT PORT A 
vE PORT ADDRESS TO LOCATION - TYPEOUT 
; ISSUE RELEASE THROUGH PORT 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 
ARMDS , $8D 
RO, SBDADR 


ADD 
#MOL !PGM! DPR! DRY! VV, $GDDAT 


PORTA, RMCS2(RO) 
RMDS (RO) , STMP2 


#PIP!WRL'OM,STMP 
2, STMPO 


STMP2 ST 
#ATA! VV, STMPO 
raid Re 


STMPO ,STMP1 


74$ 
tea § SBDDAT 
1B, PT 
PORTB, »RMCS2 (RO) 
TMPO- 


NBR 
, SBDDAT 
PORTA. RMCS2(RO) 
STMP1 


72$ 
#-1 ,RELERR 
#11,RMCS1 (RO) 


:CLEAR THE ‘RELEASE ERROR ° INDICATOR 

;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
THE I/0 BASE ADDRESS 

2 COMPARISON CONSTANT 

:SELECT PORT A. 

cer THE DRIVE et — FROM PORT A 


; CLEAR 
;COPY IT INTO *S$TMPO' 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 
:SELECT PORT B. 
;GET THE DRIVE DONT CARES FROM PORT B. 


>CLEAR DONT 
:COPY IT INTO ‘"$TMP1° 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 
:1S — REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NO 
convient ARE THE SAME: ARE THEY ZERO ? 


;BYPASS THE REST OF THE CHECKS 
:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
:SEIZiNG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
>SELECT PORT B. 
;SEE IF STATUS EQ 0 FROM PORT A 

IF ZERO 


: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
: BAD DATA‘ FOR ERROR TYPE OUT 

>SELECT PORT A 

:SEE IF STATUS. EQ ZERO FROM PORT B. 


:BR IF NOT 
;SET ‘RELEASE ERROR* INDICATOR 
;CLEAR THE DRIVE 
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| CZRMRBO 05/32 DU POR TST 1 
110 "A" RELEASE INTERFERENCE TEST , 
| 014426 012760 000013 000000 Mov #13,RMCS1(RO)  =RELEASE THE DRIVE 
| 014434 104026 EMT 26 
| 014436 013737 001170 001126 72$: MOV $TMP2,$BDDAT ; LOOK FOR BIT FAILURES WHEN RMDS READ 
| 014444 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT NUMBER 
| 014452 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHE Ck THE ATTN BIT 
014460 023737 001124 001126 CMP $GDDAT,$BDDAT :ALL BITS OK ? 
| 014466 001401 BEQ 73 “BR IF OK FROM PORT A. 
014470 104007 EMT 7 
014472 013737 001172 001126 73$: MOV $TMP3,$BDDAT —; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
014500 013737 001226 001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
014506 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 
014514 023737 001124 001126 CMP $GDDAT,$BDDAT  :SEE IF READ OK FROM PORT B. 
014522 001401 BEQ 74$ “BR IF OK 
614524 104007 EMT 7 
014526 600240 74$: NOP 
014530 1$: SCOPE :LOOP ? 
1 
348 ; CREAR REE 
: *TEST 11 PORT 'B' RELEASE INTERFERENCE TEST 
: *VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
; IS SEIZED BY THE OTHER PORT. 
** 
:* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
:* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. 
-* 
:* (C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 
-* 
:* Db. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE SWITCHED 
we TO PORT 'B’. 
-* 
:* &. RELEASE THE DRIVE THROUGH PORT 'B'’. VERIFY THAT THE DRIVE RETURNED 
:* TO NEUTRAL AND THAT NEITHER A ATTENTION BIT IS SET. 
-t 
+ RRNRKRERRR REAR EERE EE EERE RRR ERR ERR R RARER EERE ER REE R EERE 
014532 TST11: 
014532 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
014536 001406 BEO 2$ “BR IF NOT 
014540 2 BPL 1$ ‘BR IF JUST ENTERED TEST 
014542 137 003074 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
014546 012737 177777 001300 1S: MOV #~1.KYBCTL “SET SINGLE TEST INDICATOR 
014554 012737 014570 001106 2$: MOV #TEST11,$LPADR :SETUP SCOPE LOOP ADDRESS 
014562 012737 014570 001110 +e MOV #TEST11.$LPERR :SETUP ERROR LOOP ADDRESS 
PAGE 1 01457HDR1CZRMRABSEQ 00010000 810728 PDP10 411 CZRMRBO RMOS/3/2 DU POR TST 1 
1 _REM* 
2 
3 
4 
5 
. 
7 
¢ 
9 
10 
17 


SEQ 006% 


Q 0001 | 


MACR 


ee tae ee 


tt 3 4 3 2 Ls 
WOONOW wn 


20 





IDENTIFICATION 
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| 
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N 5 
MACRO VO04.00 4=-APR-81 18:06:25 PAGE 2 


CONTENTS 


ABSTRACT 
REQUIREMENTS 
2.1 EQUIPMENT 
2.2 PREREQUISITE PROGRAMS 
2.5 OTHER PROGRAMS 
LOADING PROCEDURES 
STARTING PROCEDURES 


4.1 STARTING ADDRESSES 
4.2 OPERATOR ACTION 


OPERATING PROCEDURES 

5.1 ‘SOFTWARE’ SWITCH REGISTER 

5.2 OPERATIONAL SWITCH SETTINGS 

5.3 TEST SELECTION 

5.4 DUAL PORT TEST CABLE CONNECTION 
ERRORS 
MISCELLANEOUS 


RESTRICTIONS 


DISK SURFACE USAGE 
LOOP ON ERROR OPTION 


TEST DESCRIPTIONS 


; 
¢ 
4 REQUIRED TESTS 
é 


me re ee 


SEQ 0002 


53 


| 
| 
| 
| 


| CZRMRBO RMOS/3/2 DU POR TST 1 


WOON MEW -O OO NOU WR 


ed eet ed nd eed et 


NASSSVRARAVLS 





1. 


2.1 


2.2 


2.3 
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ABSTRACT 


THE RMO5/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RMO5/3/2 DUAL PORT LOGIC 

1S FUNCTIONING My A gt ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

IS NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE “at MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS SRRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE -9P-11, RH11 OR RH70. 
THIS PROGRAM IS THE FIRST PAw: OF ‘SHE DUAL PORT OPTION 


LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 
MANUAL INTERVENTION TESTS. 


REQUIREMENTS 


EQUIPMENT 

PDP-11 PROCESSOR 

20k MEMORY 

KW11-L OR KW11-P CLOCK 

TERMINAL 

RH11 OR RH70 

1 = DISK DRIVE (RMOS, RMO3 OR RMO2) 

RM DUAL PORT TEST CABLE (P/N: 7010507-02) 
PREREQUISITE PROGRAMS 

RMO5S/3/2 DISKLESS TEST, PART 1 & 2 
RMOS/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH PORT (A & B). 


OTHER PROGRAMS 


A. THE OPERATION OF THE ‘PORT SELECT’’ SWITCH IS TESTED 
BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 


B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 
TESTED BY THE RMO5S/3/2 PERFORMANCE EXERCISER PROGRAM. 


LOADING PROCEDURES 

THE PROGRAM MAY BE LOADED w/! THE ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED *XXDP* LOADER. THE PROGRAM MAY NOT 





Le ce ee ee 


SEQ 0005 


CZRMRBO RMOS/3/2 DU POR TST 1 


ss 2 
AVIS SSLEFRAVGLSIHERERSVLSISVRARANUISSISFLALISyw 


4.1 


4.2 


5.1 


R 


pepe pet + oF 
RWW A=OSRURR 
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SES 0004 
BE INCLUDED IN AN ‘XXDP* CHAIN, 


STARTING PROCEDURES 


STARTING ADDRESSES 


A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 


B. _ THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 
USE THE CURRENT DRIVE ADDRESS. 


C.° THE PROGRAM CAN BE STARTED AT a gs 210 (8) TO ALLOW THE 
ADDRESS OF THE RH11 OR RH70 TO BE CHANGED. 


OPERATOR ACTION 


A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
& BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TESTING. 

C. SWITCH THE “PORT SELECT’ SWITCH ON THE DRIVE TO BE 
TESTED TO THE *A/B* POSITION. CYCLE THE DRIVE UP 

D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 510(8)) 
INTO THE SWITCH REGISTER (OR THE ‘SOFTWARE’ SWITCH REGISTER, 
eis TO ase ION 5.2). 


° NUMBER. 

G. ENTER THE NUMBER OF THE “eid TO BE RUN. ("CARRIAGE RETURN‘ 
OR *O* WILL RUN ALL TESTS.) 

H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 


OPERATING PROCEDURES 


"SOF TWARE’ SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN oer A_SWITCHLESS PROCESSOR 
THE Bp nn WILL tye ee THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A SOF TWARE SWITCH REGISTER. THE 
‘SOF TWARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE *SOFTWARE* SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G". THE PROGRAM WILi 

IZE THE ‘CONTROL HE PROGRAM 


THE 
"SOF TWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW = 


CZRMRBO RMO5/3/2 DU POR TST 1 


atau at 
MNINMINMINININININY @ m= om UV 
Onaow” 


ONAN WN-ODO 


— 


SARA AS Boo 


Rd ed etd nd = nd 8 dn 
W 


38 
139 
0 
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Dod 


3.3 


5.4 





EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. 
"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH etna es THE ‘SOFTWARE’ SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<15>=1 INHIBIT ERROR TYPEOUTS 

SW<11>=1 INHIBIT TEST ITERATIONS 
SW<10>=1 RING TTY BELL ON ERROR 

SW<09>=1 LOOP ON ERROR 


TEST SELECTION 
INDIVIDUAL TESTS ARE ee ye IN RESPONSE . . THE "ENTER 
NUMBER : ANY VALID R CAN BE 


TEST 
ENTERED. AGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 
TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST. 


TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A ‘O° FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


"RUBOUT KEY’ (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 
WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY ‘\' FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 


THE tg al CAN DELETE AN ENTIRE ENTRY BY TYPING A 
"CONTROL U' 


TEST CABLE CONNECTION 


TO TEST THE RMO5/3/2 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE DRIVE CABLE CONNECTED TO THE RMOS/3/2 UNDER TEST, 
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 


LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT' AND 


SEQ 0005 
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OF THE DRIVE WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 
THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 


THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


RRSP PRRRRE RRR RRRRRRLSE RSE SEER E EERE EERE RECESSES SSL SCSLS.. 


* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS # 
* IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 


ee nd et aed 8 ws 
00 00 SWS ON Sw 
VAS SaTO ROA 


183 * POWERED DOWN, « 
184 ARREARS ARASASRASASESESES ES ESE SESE EEE CSCS ESA SELES ESELACALAL ALLS 
185 

186 THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

187 DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE DRIVE. 

188 IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT 

189 CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF THE 

190 RMOS/3/2 BACK PANEL, THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 
191 FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT 'B’’ AT J6. 
193 WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 

194 , BITS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION 

195 WHEN "RMAS' (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 
196 BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE 

197 THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

198 INCLUSIVE ‘OR’ OF THE PORT A & PORT B ATTENTION BITS. BECAUSE 
199 OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 

200 "RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

201 OF THE SELECTED PORTS'S ATTENTION BIT. 

208 

204 

205 6. ERRORS 

$09 ae 

208 WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE iS 
209 CALLED AND IF SwW<13> IS NOT SET. THE ERROR MESSAGE PERTAINING 
210 TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
211 THE FOLLOWING: 

213 A. AN ERROR MESSAGE 

214 B. A DATA HEADER LINE 

215 C. A DATA LINE CONTAINING: 

216 1. THE TEST NUMBER 

217 2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 

218 CALL WAS MADE 

219 3. CONTENTS OF THE APPROPIATE REGISTERS 

221 

222 

223 

224 ‘i MISCELLANEOUS 

rc nS 2 gh 

226 

227 4 RESTRICTIONS 

228 
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7.2 


fas 


7.4 


Fah 


7.6 


8.1 


TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A kw11-P 
OR A KWil=L CLOCK. ADDITIONALLY, THE DRIVE UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 


LIMITATIONS 


THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION, AND DOES NOT TEST THE UNLOAD C 

OR THE OPERATION OF THE PORT SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2.3) 


EXECUTION TIME 


PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS. 


REQUIRED TESTS 


JF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
TECTS ane taal: CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 


A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
pig. THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 


DISK SURFACE USAGE 


THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
hg MUST BE CYCLED UP AND BE ON LINE FOR THE DIAGNOSTIC TO BE 


LOOP ON ERROR OPTION 


IF SW<O9> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
BECAUSE THE PROGRAM MUST RESET THE RMOS/3/2 TO A KNOWN STATE 
> oo LOOPING ON THE ERROR, THE TEST FOR Sw<09> IS PERFORMED 
oF ys I THE TEST - NOT AT THE POINT WHERE THE ERROR 


TEST DESCRIPTIONS 


METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 


THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 

BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
("ATA® & ‘VV") AND VERIFIES THAT CORRECT STATUS IS READ 

THROUGH BOTH PORTS. (THE CORRECT STATUS IS ‘MOL"., ‘PGM', 
‘DPR’, & "DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 

RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 

AND THAT ANY BIT DESCREPANCY BETWEEN PORTS INDICATES A 


—-_- —— + te eer a ewer cee 
——_ —- a 
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FAILURE IN THE PATH FOR THAT BIT. 


ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, RQB) OF THE 
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 
THE DRIVE IS IN NEUTRAL. 


8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 


THE PROGRAM VERIFIES THAT THE DRIVE HAS aoe SFIZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 

THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 
ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (J.E. 


8.3 METHOD USED TO VERIFY PORT REQUESTS 


THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 
ae TO DETERMINE IF 
A DRIVE IS IN NEUTRAL,I.E., RQA AND ROB ARE ZERO; 
. A DRIVE IS SEIZED, I.£., ROA OR ROB IS ONE ; 
. A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED TO THE 
ALTERNATE PORT, I.E., RQA AND ROB ARE ONE. 


TEST 1 NEUTRAL ACCESS TEST 
VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 
A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
DRIVE IS A DUAL PORT RMO5/3/2, THAT THE DRIVE IS ONLINE (RMDS HAS 
"PGM’, ‘DPR', & ‘DRY’ BITS SET), AND THE THE DRIVe SERIAL 
NUMBER READ THROUGH BOTH PORTS IS THE SAME. 


B. THE TEST IS REPEATED THROUGH BOTH PORTS. 


TEST 2 PORT ‘A* SEIZE/TIMEOUT TEST 


VERIFY sr i THE DRIVE CAN BE SEIZED BY 7 Mg FE ele REGISTER AND THAT . 


CAN BE RELEASED BY THE ONE SECOND T 


A. WRITE 0°S INTO _RMDA THROUGH PORT ‘A; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘B'; 
VERIFY THAT O*S ARE READ FROM EACH REGISTER. 


C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF THE TIMEQUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT. TIMEOUT RETURNED THE DRIVE TO 


NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
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TEST 3 PORT 'B* SEIZE/TIMEQUT TEST 


VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A si REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER 


A. WRITE O'S INTO _RMDA THROUGH PORT 'B'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 


B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT ‘A’; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 


C. WAIT FOR THE PORT TIMEOUT TO sree THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 
TEST 4 PORT ‘A* SEIZE/RELEASE TEST 
TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 
C. ISSUE A RELEASE COMMAND THROUGH PORT’A’. VERIFY THAT THE DRIVE 
ae TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
TEST 5 PORT ‘B* SEIZE/RELEASE TEST 
TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING 0°S INTO RMDS. 
B. SET VOLUME VALID AND CLEAR ANY ERROR 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'B*. VERIFY THAT THE DRIVE 
ta TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
TEST 6 PORT *A* NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
A. ISSUE A RELEASE COMMAND THROUGH PORT 'A* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
TEST 7 PORT °B’ NEUTRAL/RELEASE TEST 
TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT .'B* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
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TEST 10 PORT *A* RELEASE INTERFERENCE TEST 


VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT ‘A‘. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘'B’. 

RELEASE THE DRIVE THROUGH PORT 'B’. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘A’. 


"T° 7 WD >} 


E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
TEST 11 PORT *B* RELEASE INTERFERENCE TEST 


VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘A’. 

RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ‘B’. 


oe -—- @&@ >» 


E. RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
TEST 12 PORT *A* RELEASE W/ERRORS TEST 


VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O0°S INTO RMDS. 
B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A‘. 
»JE A RELEASE COMMAND THROUGH PORT ‘A‘. VERIFY THAT THE ‘GO" 
"2, T HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
i+AT RMER1 HAS NOT BEEN CLEARED. 
D. LEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ‘A’. 


ISSUE A RELEASE COMMAND THROUGH PORT ‘A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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TEST 13 PORT ‘B' RELEASE W/ERRORS TEST 


VERIFY THAT ° RELEASE COMMAND a NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE 


SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0'S INTO RMDS. 
. WRITE 1°S INTO RMER1 THROUGH PORT 'B'. 

C. isa A RELEASE COMMAND THROUGH PORT 'B’'. VERIFY THAT THE ‘GO’ 
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B’. 

E. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 

RETURNED 10 NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 14 PORT "A’ SEIZE AND CLEAR TEST 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT ‘A’. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT ‘A’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
THE DRIVE DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 15 PORT ‘B" SEIZE AND CLEAR TEST 


VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


A. SEIZE THE DRIVE BY WRITING 0°S INTO RMDS THROUGH PORT 'B'. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


B. ISSUE A DRIVE CLEAR THROUGH PORT "B* AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


C. ISSUE A MASSBUS CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 
THE DRIVE DOES NOT RETURN TO NEUTRAL. 


D. RELEASE THE DRIVE THROUGH PORT ‘B*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 16 SEIZE 'A‘ BY RMCS1 TEST 


SEQ 0011 
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VERIFY THAT READING THE _— REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRA 


A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A’; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT ‘A'; VERIFY THAT THE ac 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
TEST 17 SEIZE ‘B* BY RMCS1 TEST 


VERIFY THAT READING THE -_ REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRA 


A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘'B‘'; VERIFY THAT 
THE DRIVE IS SEIZED. 


B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’; VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 20;PORT ‘A' INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST’ IF THE DRIVE IS SEIZED. 


A. at THE DRIVE THROUGH PORT ‘B’ BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. “ao CONTROL REGISTER FROM PORT ‘At VERIFY THAT *DVA* IS NOT 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 21 PORT ‘B' INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST* IF THE DRIVE IS SEIZED. 


A. SEIZE THE DRIVE THROUGH PORT ‘A* BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 


B. sees ii CONTROL REGISTER FROM PORT ‘BR’. VERIFY THAT "DVA' IS NOT 


C. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE — 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


TEST 22 SEIZE BY RMAS TEST 


TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
a SEIZES THE DRIVE. VERIFY THAT ‘REQUEST IS SET FOR THE OTHER 
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A. — —— DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 


B. ISSUE A_RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 


DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 


TEST 23 INHIBIT SEIZE BY RMAS TEST 


VERIFY ye THE DRIVE IS NOT y Sipe WHEN A *ZERO‘ IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT ; 


A. SELECT A DRIVE NOT BEING TESTED Aiw WRITE ALL BITS, EXCEPT THE 
BIT OF THE DRIVE BEING TESTED, ‘NTO THE ATTENTION REGISTER. 


B. VERIFY THAT THE DRIVE IS STILL i% NEUTRAL. 


TEST 24 SET PORT 'A* REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 


B. WRITE O°S INTO RMDS FROM PORT ‘A’; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ‘B’. 


C. ISSUE A RELEASE COMMAND FROM PORT ‘B' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT ‘A*. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT "A* AND IS NOT SET FOR PORT 'B’. 
D. ISSUE A RELEASE COMMAND THROUGH PORT ‘A* AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 25 SET PORT 'B* REQUEST TEST 


VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 


B. WRITE 0°S INTO RMDS FROM PORT 'B'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT ‘A’. 


C. —_ A RELEASE COMMAND FROM PORT ‘A‘ AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT ‘"B*. VERIFY ae ie ATTENTION BIT IS SET FOR 
PORT 'B' AND IS NOT SET FOR PORT 
D. ISSUE A RELEASE COMMAND THROUGH PORT ‘B* AND VERIFY “HAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 26 TEST RESET ATTENTION ‘A’ BY DRIVE CLEAR 
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VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 
A. ot nat PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 
ISSUE A DRIVE CLEAR COMMAND. 
D. tae a THE DRIVE THROUGH PORT ‘A’, VERIFY THAT THE ATTENTION 
BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
"B’ IS STILL SET. 
TEST 27 TEST RESET ATTENTION ‘B’ BY DRIVE CLEAR 
VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 


A. — PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 


B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 
C. ISSUE A DRIVE CLEAR COMMAND. 
D. RELEASE THE DRIVE THROUGH PORT °B’. VERIFY THAT THE ATTENTION 
BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
‘A’ IS STILL SET. 
TEST 30 RESET ATTENTION ‘A' BY GO TEST 
VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT 
A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 
B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S 
INTO RMDS. 


C. ISSUE A NOP COMMAND. 
D. RELEASE oa FRIVE THROUGH PORT ‘A*. VERIFY THAT THE 
ATTENTION BIT FOR PORT 'A' IS RESET, AND THE 
ATTENTION BIT FOR PORT 'B' IS STIL SET. 
TEST 31 RESET ATTENTION ‘B' BY GO TEST 


VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 





EE eee See 
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A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 


B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S 
INTO RMDS. 


C. ISSUE A NOP COMMAND. 

D. RELEASE THE FRIVE THROUGH PORT 'B'. VERIFY THAT THE 
ATTENTION 31T FOR PORT 'B' IS RESET, AND THE 
ATTENTION BIT FOR PORT ‘A‘ IS STIL SET. 

TEST 32 TEST RESET ATTENTION ‘A’ & ‘B' BY MASSBUS INIT 


VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
C. ae MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 


TEST 35 RESET ATTENTION ‘A‘* & ‘B' BY RMAS 


VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


A. SET THE ATTENTION BITS FOR BOTH PORTS. 
B. VERIFY THE DRIVE IS IN NEUTRAL. 
C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 
THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 


TEST 34 PORT ‘A* ALTERNATE ATTENTION RATH TEST 


VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL . 


A. SET THE ATTENTION BIT FOR PORT ‘A’. 

B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 

C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


TEST 35 PORT 'B* ALTERNATE ATTENTION PATH TEST 


VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 


A. SET THE ATTENTION BIT FOR PORT ‘R’. 


SEQ 0015 
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TEST 


TEST 
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B. 
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SEQ 0016 


SEIZE THE DRIVE THROUGH PORT ‘A‘' BY WRITING 0°S INTO RMDS. 

READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 

36 SET ATTENTION ‘A’ BY COMMMAND TEST 

THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND . 


ISSUE A OFFSET COMMAND THROUGH PORT ‘A’. 

WAIT FOR THE OFFSET COMMAND TO COMPLETE (‘DRY' TO BECOME 
"1°)._ VERIFY THAT THE ATTENTION BIT FOR PORT ‘A’ IS SET AND 
THAT THE ATTENTION BIT FOR PORT ‘B’ IS NOT SET. 

RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT ;~ DRIVE RETURNED 
70 NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 

37 SET ATTENTION °B’ BY COMMMAND TEST 


THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND . 


ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘B’. 


WAIT _ THE RECALIBRATE COMMAND TO COMPLETE (‘DRY* TO BECOME 
ph iy VERIFY THAT THE ATTENTION BIT FOR PORT ‘B* IS SET AND 
THAT’ THE ATTENTION BIT FOR PORT ‘A* IS NOT SET. 


RELEASE THE DRIVE THROUGH PORT ‘B’. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 40 PORT ‘A® SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


+A. 


B. 


t. 


D. 


WITH PORT ‘A* SELECTED, RESET AND SET ‘UNIT READY" 
STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT ‘VOLUME VALID*’’ IS RESET AND 
ATTENTION IS SET. 


ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET. 
TO THE DRIVE THAT WAS SEIZED IN STEP A. 
ge a THAT ATTENTION IS RESET AND THAT VOLUME VALID 


RELEASE THE DRIVE FROM PORT ‘A’ AND SELECT THE ops FOR 
PORT ‘*B*. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 


ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT "B* THEN RELEASE PORT ‘B'. 


a ee SE A << xe sen one -- _——_—-— — - 
. 
. 


| 
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TEST 41 PORT ‘*B* SET VOLUME VALID TEST 
VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 
A. WITH PORT ‘B’ SELECTED, RESET AND SET ‘UNIT READY’’ 


1S SEIZED AND THAT ‘VOLUME VALID'’ IS RESET AND 
ATTENTION IS SET. 


B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
C. RELEASE THE DRIVE FROM PORT ‘B' AND SELECT THE DRIVE FOR 
PORT 'A'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 
D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT 'A' THEN RELEASE PORT 'A'. 
TEST 42 TEST PORT ‘A* TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
B. WRITE 1°S INTO RMER1 THROUGH. PORT ‘A’ TO FORCE AN ATTENTION. 
C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT °A' AND NOT SET FOR 
PORT 'B*; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
TEST 43 TEST PORT 'B* TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
B. WRITE "J INTO RMER1 THROUGH PORT 'B'. 
C. WAIT FOR ‘THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUT RAL; THAT ATTENTION IS SET FOR PORT 'B" AND IS NOT SET FOR 
PORT 'A': AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
TEST 44 PORT 'A' RETRIGGER BY DEMAND TEST 
VERIFY THAT THE PORT TIMEOUT ONE=SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 


B. WAIT 500 MS AND READ RMDS THROUGH PORT ‘A’. 


SEG 0O1/ 
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C. ie THAT THE TIMEOUT OCCURS WITHIN + OR = 7, OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP ‘'B 


D. Wetr ie at DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


TEST 45 PORT 'B' RETRIGGER BY DEMAND TEST 


VERIFY THAT THE PORT TIMEOUT ONE=SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
B. WAIT 500 MS WRITE 0°B INTO RMDS THROUGH PORT ‘A’. 


C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR ~ 25% OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP ‘B’.) 


D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 
TEST 46 PORT *A* TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 
B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘A’. 
C. ISSUE A RELEASE COMMAND FROM PORT ‘B’. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA‘ BIT DID NOT 
SET FOR PORT *B’. REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 


D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


E. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 47 PORT "B" TIMEOUT/RELEASE TEST 


VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING O'S INTO RMDS. 
B. SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘B'. 


C. ISSUE A RELEASE COMMAND FROM PORT ‘A’. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA" BIT DID NOT 


SET FOR PORT ‘A*, REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B'. 


D. WAIT THE TIMEOUT INTERVAL + 25%. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 





Se EE EE Ee ee 


SEQ 0018 
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TEST 50 PORT ‘A’ SEIZE ACCESS TEST 

VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0'S INTO RMDS. 
B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’, 


C. READ RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT PORT 
'B’ SEES O'S FROM EACH OF THESE REGISTERS. 


D. CLEAR RMER1, RMER2 THROUGH PORT "A’. 


E. WRITE 1° pe INTO RMER1, RMER2 THR HROUGH PORT *B*. VERIFY THAT 
PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 


r sh, THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT 'B’ IS 
SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 
G. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. VERIFY THAT THE DRIVE 
RETURNED TO diction AND THAT NEITHER ATTENTION BIT IS SET. 
TEST 51 PORT ‘B® SEIZE ACCESS TEST 
VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
A. SEIZE THE DRIVE THROUGH PORT ‘B’® BY WRITING 0°S INTO RMDS. 
B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘B’. 


[,. READ RMER1, RMER2 THROUGH PORT ‘4’. VERIFY THAT PORT 
‘A’ SEES 0°S FROM EACH OF THESE REGISTERS. 


D. CLEAR RMER1, RMER2 THROUGH PORT ‘B’. 


E. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A'. VERIFY THAT 
PORT "B" SEES O'S FROM EACH OF THESE REGISTERS. 


F. RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE HAS 
ot ee TO PORT 'A* AND THAT THE ATTENTION BIT FOR PORT ‘A* IS 
SET AND THE ATTENTION BIT FOR PORT 'B* IS NOT SET. 


ISSUE A RELEASE COMMAND THROUGH PORT "A*. VERIFY THAT THE _— 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


en ee —— - ee ee 6 cet ee me oe wee ~~. - 
‘ 
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SEQ O 


> *LAST REVISION 04~APR-81 

TITLE C2RMRBO RMO5/3/2 DU POR TST 1. 
;*COPYRIGHT (C) 1981 

:*DIGITAL EQUIPMENT CORPORATION 

s *COLORADO SPGS., CO. 80919 

: sPROGRAM BY MIKE LEAVITT 


 STHIS PROGRAM WAS ASSEMBLED USING THE FDP=11 MAINDEC SYSMAC 
¢ *PACKAGE (MAINDEC=11=DZQAC=C5), 18-MAR-81 


*SBTTL OPERATIONAL SWITCH SETTINGS , 
* SWITCH USE 

i, 

7 15 HALT ON ERROR 

:* 14 LOOP ON TEST 

:* 13 INHIBIT ERROR TYPEOUTS 

:* 17 INHIBIT ITERATIONS 

* 10 BELL ON ERROR 

:* 9 LOOP ON ERROR 


-SBTTL BASIC DEFINITIONS 
2 * INITIAL joo OF THE STACK POINTER *** 1100 *«* 


STACK = 
ERROR = EMT :sBASIC DEFINITION OF ERROR CALL 
SCOPE = JOT ;sBASIC DEFINITION OF SCOPE CALL 
tateeae es ceed DEFINITIONS 
11 ODE FOR HORIZONTAL TAB 
iF = 12 ‘3 CODE FOR LINE FEED 
CR = 15 :;CODE FOR CARRIAGE RETURN 
CRLF = 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
<8 - = 177776 ; sPROCESSOR STATUS WORD 
STKLMT = 177776 73 STACK LIMIT REGISTER 
PIRQ = 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = =_- {77570 > ;HARDWARE SWITCH REGISTER 
DDISP = 177570 ‘ T HARDWARE DISPLAY REGISTER 
2 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO = %0 se RAL REGISTER 
R1 = Zi ;;GENERAL REGISTER 
R2 = ke ;;GENERAL REGISTER 
R3 = %3 ; GENERAL REGISTER 
R4 = %4 : GENERAL REGISTER 
R5 = 45 8 RAL REGISTER 
R6 = %6 ;;GENERAL REGISTER 
R7 = %7 ;;GENERAL REGISTER 
SP = %6 :;STACK POINTER 
PC = 47 ; sPROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
PRO = 0 ;zPRIORITY LEVEL 0 
PR1 = 40 ;;PRIORITY LEVEL 1 
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BASIC DEFINITIONS 
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:sPRIORITY LEVEL 


: SPRIORITY LEVEL 


ae SWITCH DEFINITIONS 


:*DATA BIT DEFINITIONS (B1T00 TO BIT15) 
BIT15 100000 


PR = 100 
PR = 140 
PRG = 200 
PRS = 240 
PR6 = 300 
PR7 = 340 
:*' SWITCH RE 
Sw15 = 1000 
Sw14 = 40000 
Sw13 = 20000 
SWwi2 = 10000 
Swi = 4000 
Sw10 = 2000 
Sw09 = 1000 
Sw08 = 400 
Sw07 = 200 
Sw06 = 100 
Sw05 = 40 
Sw04 = 20 
Sw03 = 10 
Sw02 = 4 
Sw01 = 2 
Sw00 = 7 
Sw9=Sw09 
SWw8=Sw08 
SW7=Sw07 
SW6=SW06 
SW5=Sw05 
SW4=S 
Sw3=Sw03 
SW2=Sw02 
SW1=SW01 
SwO=Sw00 

T1 = 
BIT14 = 40000 
BIT13 = 20000 
BIT1i2 = 10000 
BIT11 = 4000 
BIT1i0 = 2000 
BITO9 = 1000 
BITO8 = 400 
BITO7 = 200 

I1T06 == : 100 
BITOS = 40 
BIT04 = 20 
BIT03 = 10 
BITO2 =4 
Sito; = 2 
B1ITOO = j 
BIT9=BITO9 
BIT8=BITO8 
BIT7=BIT07 
BIT6=BIT06 
BIT5=BIT05 


WOW WIP 


SEQ 00-' 


CZRMRBO RMO5/3/2 DU POR TST 1 


BASIC DEFINITIONS 


000200 


H 7 
MACRO V04.900 4-APR-8! 18:06:25 PAGE 4-2 


BIT4=B1T04 
B1T3=B1T03 
BIT2=B1T02 
BIT1=BIT01 
BIT0=B1T00 

;*BASIC ‘'CPU"’ TRAP VECTOR ADDRESSES 
ERRVEC = 4 E OUT AND OTHER ERRORS 
RESVEC = 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC = 14 ji. ee 

TRTIVEC = 14 ;; TRACE TRAP 
BPTVEC = 14 ; sBREAKPOINT TRAP (BPT) 

IOTVEC = 20 aan oa TRAP (IOT) **SCOPE** 
PWRVEC = 24 > POWER FAIL 
EMTVEC = 30 ; s EMULATOR TRAP (EMT) **ERROR** 

TRAPVEC = 34 ""TRAP'' TRAP 

TKVEC = 60 7; TTY KEYBOARD VECTOR 

TPVEC = 64 :;TTY PRINTER VECTOR 
PIRQVEC = 240 ; PROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL RH/RM REGISTERS 

:CONTROL AND STATUS REGISTER 1 (RMCS1) 

IE = 100 : INTERRUPT ENABLE (BIT #6) 
RDY = 200 sREADY (BIT #7) 
Al6 = 400 sHIGH ORDER BUS ADDRESS BIT (BIT #48) 
Al7 = 1000 ;HIGH ORDER BUS ADDRESS BIT (BIT #9) 
PSEL = 2000 ¢PORT SELECT (BIT #10) 
MCPE = 20000 MASSBUSS PARITY ERROR (BIT #13) 
TRE = 40000 : TRANSFER ERROR (BIT #14) 

SC = 100000 :SPECIAL CONDITION (BIT #15) 
:CONTRCL AND STATUS REGISTER 2 (RMCS2) 
U0. = ] sUNIT SELECT (BIT #0) 
Ul = 2 sUNIT SELECT (BIT #1) 
U3 = 4 sUNIT SELECT (BIT #2) 
BAI = 10 *BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
PAT = 20 MASSBUS PARITY TEST (BIT #4) 
CLR = 40 [CLEAR (BIT #5) 

IR = 100 : INPUT READY (BIT #6) 
OR = 200 :OUTRUIT READY (BIT #7) 
MDPE = 400 MASS PARITY ERROR (BIT #8) 
MXF = 1000 :MISSED TRANSFER ERROR (BIT 4&9) 
PGE = 2000 :PROGRAM ERROR (BIT #10) 
NEM = 4000 :NON EXISTENT MEMORY (BIT #11) 
NED = 10000 ;NON EXISTENT DRIVE (BIT #12) 
UPE = 20000 :UNIBUS PARITY ERROR (BIT #13) 
WCE = 40000 sWRITE CHECK ERROR (BIT #14) 
DLT = 100000 :DATA LATE (BIT #15) 


;DATA BUFFER REGISTER (RMDB) 


(EACH BIT IS CALLED BY BIT NUMBER) 


.SBTTL RM REGISTERS 
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Re REGISTERS 


640 

641 

642 000001 

643 000002 

644 000004 

645 000010 

646 000020 

647 000040 

648 004000 

649 

650 

651 

652 000040 

653 

654 

655 

656 000001 

657 000100 

658 000200 

659 0004 

660 001000 

661 002000 
004 

6635 010000 
020000 

665 040000 

666 100000 

667 

668 

669 

670 0G0001 

671 000002 

672 000004 

673 000010 

674 000020 

675 000040 

676 000100 

677 000200 

678 0004 

679 001000 

680 002000 

681 004000 

682 010000 

683 020000 
040000 

685 100000 

686 

687 

688 

689 000001 

690 001000 

691 640000 

692 100000 

693 

694 

695 
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:CONTROL AND STATUS REGISTER #1. (#00) 

GO =] :GO BIT (BIT #0) 

FQ = 2 sFUNCTION CODE BIT #1 

F 1 = 4 sFUNCTION CODE BIT #2 

Fe = 10 FUNCTION CODE BIT #3 

F3 = 20 sFUNCTION CODE BIT #4 

F4 = 40 sFUNCTION CODE BIT #5 

DVA = 4000 sDEVICE AVAILABLE (BIT 411) 
sCONTROL STATUS REGISTER #2 (RMCS2) 

CLR = BITS ;CONTRCLLER CLEAR 


sDRIVE STATUS REGISTER (RMDS) (401) 


OM = B1IT00 
VV = 100 
DRY = 200 
DPR = 400 
PGM = 1000 
LBT = 2000 
WRL = 4000 
MOL = 10000 
PIP = 20000 
ERR = 40000 
ATA = 100000 


;OF FSET MODE 

sVOLUME VALID (BIT #6) 
:DRIVE READY (BIT #7) 
:DRIVE PRESENT (BIT 48) 
;PROGRAMABLE (BIT #9) 


sLAST SECTOR TRANSFERRED (BIT #10) 
;WRITE LOCK (BIT #11) 

:MEDIUM ON-LINE (BIT #12) 

sPOSITIONING OPERATION IN PROGRESS (BIT #13) 
; COMPOSITE ERROR (BIT #14) 

ZATTENTION ACTIVE (BIT #15) 


ERROR REGISTER #01 (RMER1)° (#02) 


ILF = 

ILR ae 4 

RMR = 4 

PAR = 10 

FER = 20 

WCF = 40 

ECH = 100 
HCE = 200 
HCRC = 400 
AOE = 1000 
IAE = 2000 
WLE = 4000 
DTE = 10000 
OPI = 20000 / 
UNS = 40000 
DCK = 100000 


: ILLEGAL FUNCTION (BIT 7 

; ILLEGAL REGISTER (BIT #1) 

>REGISTER MODIFICATION REFUSED (BIT #2) 
sPARITY ERROR (BIT #3) 

:FORMAT ERROR (BIT #4) 

;WRITE CLOCK FAIL (BIT #5) 

sECC HARD ERROR (BIT #6) 


;HEADER COMPARE ERROR (BIT #7) 
sHEADER CRC ERROR (BIT #8) 
sADDRESS OVERFLOW ERROR (BIT #9) 
: INVALID ADDRESS ERROR (BIT #10) 
;WRITE LOCK ERROR (BIT #11) 
:DRIVE TIMING ERROR (BIT #12) 

: OPERATION INCOMPLETE wad #13) 
sDRIVE UNSAFE (BIT #14 

:DATA CHECK ERROR ‘BIT 5S) 


s>MAINTAINABILITY REGISTER (RMMR1) (405) 


MUR = BITOS 
ROB = BIT14 
ROA = BITI5 


sDIAGINOSTIC MODE (BIT #0) 
sMAINTENANCE UNIT READY 
:PORT B REQUEST FLOP 
;PORT A REQUEST FLOP 


sATTENTION SUMMARY PSEUDO=REGISTER (RMAS) (404) 


ATO = 7 





;DEVICE O (BIT 4&0) 


EE ee ee ee ee - 


SEQ UU¢ 4 


tee 
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AT = 2 ;DEVICE 1 (BIT #1) 
AT = 4 ;DEVICE 4 (BIT #2) 
AT3 = 10 sDEVICE 3 (BIT #3) 
ATS = 20 sDEVICE 4 (BIT #4) 
ATS = 40 sDEVICE 5 (BIT #5) 
AT6 = 100 sDEVICE 6 (BIT #6) 
AT? = 200 ;DEVICE 7 (BIT #7) 


sDESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
>; (EACH BIT IS CALLED BY BIT NUMBER) 


:DRIVE TYPE REGISTER (RMDT) (406) 


pTOO = 1 DRIVE TYPE NUMBER BIT 1 2 
D101 = 2 DRIVE TYPE NUMBER BIT 2 

DT02 = 4 DRIVE TYPE NUMBER BIT 3 

D103. = = 10 ;DRIVE TYPE NUMBER BIT 4 

DT04 = = 20 ;DRIVE TYPE NUMBER BIT 5 

DTOS) = = 40 DRIVE TYPE NUMBER BIT 6 

DT06 = =: 100 DRIVE TYPE NUMBER BIT 7 

D107, = 200 DRIVE TYPE NUMBER BIT 8 

DTOB = =: 400 DRIVE TYPE NUMBER BIT 9 

DRO = _ 4000 DRIVE REQUEST REQUIRED (BIT #11) 
MOH = 20000 ;MOVING HEAD (BIT #13) 

TAP = =: 40000 ;TAPE DRIVE (BIT #14) 

NBA = =_: 100000 ;NOT BLOCK ADDRESSED (BIT #15) 
;LOOK=AHEAD REGISTER (RMLA) (#07) 

sco. = 100 ;SECTOR COUNT FIELD 0 (BIT #6) 
Sc} =—s- =_- 200 SECTOR COUNT FIELD 1 (BIT #7) 
SC2 = 400 SECTOR COUNT FIELD 2 (BIT #8) 
SC3. =: 1000 SECTOR COUNT FIELD 3 (BIT #9) 
SC4 ss =: 2000 ;SECTOR COUNT FIELD 4 (BIT #10) 
:RM ERROR REGISTER #2 (RMER2) (#10) 

DPE == 10 ;DATA PARITY ERROR (BIT #3) 

DvVC = = 200 DEVICE CHECK (BIT #7) 

LBC = =: 2000 LOSS OF BIT CLOCK (BIT #10) 

LSC = 4000 LOSS OF SYSTEM CLOCK (BIT #11) 
Ive = =: 10000 INVALID COMMAND (BIT #12) 

OPE = 20000 —~ ;QPERATOR ERROR (BIT #13) 

SkI = _ 100000 ;SEEK INCOMPLETE (BIT #14) 
;OFFSET REGISTER (RMOF) (#11) 

OFD = =: 200 OFFSET FORWARD (BIT #5) 

HCI = 2000 ;HEADER COMPARE INHIBIT (BIT #10) 
EC] = 4 SERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT16 = 10000 :FORMAT BIT (BIT #12 


;DESIRED CYLINDER ADDRESS (RMDC) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


: SERIAL NUMBER REGISTER (RMSN) (414) 
; (EACH IS CALLED BY BIT NUMBER) 





SO EA tee seo - 


SEQ 0024 


| 
| 
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C POSITION REGISTER (RMEC1) A 
ACH 

C PATTERN REGISTER (RMEC2) (417) 
: (EACH BIT IS CALLED BY BIT NUMBER) 


BIT IS CALLED BY BIT NUMBER) 


DEFINITIONS OF THE RH/RM ADDRESS INDEXES 
0 ‘;CONTROL AND STATUS REGISTER #1 eth: REG. 00) 


= 2 ; WORD COUNT REGISTER (NOT A DRIVE R 

= 4 UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

= 6 ‘DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
= 10 ; CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 

= 12 :DRIVE STATUS REGISTER (DRIVE REG 01) 

= 14 ;ERROR REGISTER #1 (DRIVE REG. 

= 16 ; ATTENTION SUMMARY PS EGISTER (DRIVE REG. 04) 
= ; AD REGISTER (DRIVE R 

= 22 ;DATA_BUFFER REGISTER (NOT a IVE REG. 

= sMAINTAINABILITY REGISTER (DRIVE REG. 03) 

= 26 ;DRIVE TYPE REGISTER (DRIVE R 

= 30 SERIAL NUMBER REGISTER (DRIVE REG. 10) 

= 32 ;OF FSET REGISTER (DRIVE R 11) 

= 34 ; DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
= 40 MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

= 42 ERROR REGISTER #2 (DRIVE REG. 15) 

= 44 sECC POSITION REGISTER (DRIVE REG. 16) 

= 46 sECC PATTERN REGISTER (DRIVE REG. 17) 


ee SS Se os --+ 


SEQ 0025 


. _F 
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TRAP CATCHER 


| _SBITL TRAP CATCHER 


| 
i 
| 
| 000000 =0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’’ 
> *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
pe : *LOCATION NQ CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
| 000174 000000 DISPREG: “WORD 0 : SOFTWARE DISPLAY REGISTER 
| 000176 000000 SWREG:  .WORD 0 “SOFTWARE SWITCH REGISTER 
| .SBTTL STARTING ADDRESS(ES) 
, 000200 000137 002240 JMP QASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
3 000204 000137 002246 JMP @ASTART1 :START AND CHANGE THE RH/RM ADDRESS 
5 - SBTTL ACT11 HOOKS 
| CAAA ARERR 
“HOOKS REQUIRED BY ACT11 
000210 $SVPC=. :SAVE PC 
000046 =46 ‘ 
000046 066110 SENDAD :21)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 020000 “WORD 20000 ;:2)SET LOC. 352 TO 20000 
000210 " =$SVPC :: RESTORE P 


eee 
a en ———— = eee ce ee ———— = - : —_— ~_— 


SFQ 0026 


et eeesnseee 


— 





ssssessssess 
RARRBRRNBSTERSRRESSS 


EEEEEEEE 


| CZRMRBO RMOS5/3/2 DU POR TST 1 
COMMON TAGS 


377 


000 


377 
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~SBTTL COMMON TAGS 


SRA 


SRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


$AUTOB 


-=1100 


PIO OOOO OO“OOSSSSSO 


oOo 
= 
nD 
v 


™m 


Oooooeeo &o—-VoO 


rere 


645> 
<12> 


3zSTART OF COMMON TAGS 
i; CONTAINS PASS COUNT 
3: CONTAINS THE TEST NUMBER 


3 S ERROR FLAG 
:sCONTAINS SUBTEST ITERATION COUNT 
s;CONTAINS SCOPE LOOP ADDRESS 
;sCONTAINS SCOPE RETURN FOR ERRORS 
::CONTAINS TOTAL ERRORS DETECTED 
<3 aie ITEM CONTROL BYTE 


:;CONTAI . ERRORS PER TEST 
:: CONTAINS PC OF LAST ERROR eo 
ip ADDRESS OF ‘GOOD’ 


ONTAINS ADDRESS ae *BAD* DATA. 
TAINS ‘GOOD’ DAT 
TAINS ‘BAD’ DATA. 

; ;RESERVED--NOT TO BE USED 


; ;AUTOMATIC MODE INDICATOR 
2s INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
; ADDRESS AS eal REGISTER 


33 BUFFER 

77 TTY PRINTER STATUS REG. ADDRESS 

73 TTY PRINTER BUFFER REG. ADDRESS 
+= CONT AINS NULL CHARACTER FOR FILLS 
ZCONTAINS # OF FILLER CHARACTERS —— 

: INSERT FILL CHARS. AFTER A *LINE FEED’ 

ERMINAL AVAILABLE’’ FLAG (BI T<07>=0=YES) 

ADDRESS FROM 


ee >; CONTAINS THE 
s;WHICH ($REGO) WAS OBTAINED 
ee Brg PB eae +0) 


sUSER DEFINED 
:TUSER DEF INED 

>;MAX. NUMBER OF ITERATIONS 
> s ESCAPE ON ERROR ADDRESS 
:;CODE FOR BELL 
nh STION MARK 

Ne RETURN 

\c FEED 


Tec deae re ubieicain binrenenneteiecdtclaeeedbinwhentwieevsessses 


ee eee ee 


SEQ 002/ 
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USER DEFINED TAGS SEQ 0025 


-SBTTL USER DEFINED TAGS 

001212 172540 $SLKCSR: .WORD 172540 sADDR OF KW11=P STATUS meee 
001214 172542 $LKCSB: .WORD 172542 sADDR OF KW11-P COUNTER BUFFER 
001216 000104 SLPVEC: .WOR 104 sADDR OF KW11-P VECTOR 
001220 177546 $SLKS: .WORD 177546 sADDR OF KW11-L STATUS REGISTER 
001222 000100 SLLVEC: .WORD 100 s;ADDR OF KW11=-L VECTOR 
001224 000000 PORTA: .WORD (0 sADDRESS OF PORT A 
0012 000000 PORTB: .WORD 0 sADDRESS OF PORT B 
0012 000000 PORTC: .WORD 0 sADDRESS OF DIFFERENT ve 
001232 000000 ROSTA: .WORD 0 sREQUEST BIT FOR PORT 
001234 000000 RQSTB: .WORD QO REQUEST BIT FOR PORT 8 
001236 000000 ASR?:  .WORD 0 sATA~A OR ATA-B = 
001240 000000 TNBR: .WORD 0 ;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 
001242 000000 SEIZPT: .WORD 0 : CONTAINS THE ADDRESS OF THE SEIZING PORT 
001244 000000 T: .WORD 0 ; CONTAINS THE ADDRESS OF THE ‘OPPOSITE’ PORT 
001246 000000 TSTNUM: .WORD 0 R OF THE CURRENT TEST 
001250 000000 CKERR: .WORD 0 VIF -1, A REGISTER MISCOMPARISON OCCURRED 
001252 000000 NOSEIZ: .WORD 0 IF -1, THE PORT IN 'SEIZPT’ DID NOT SEIZE THE DRIVE 
601254 000000 RELERR: .WORD 0 :I1F -1, THE PORT IN ‘SEIZPT’ DID NOT RELEASE THE DRIVE 
001256 000000 IME: .WORD 0 ;ELAPSED TIME COUNTER 
001260 000000 WATCH: .WORD 0 :WATCH DOG TIMER LOCATION 
001262 000000 TIMEA: .WORD 0 : THE Fe ONE=SHOT VALUE MEASURED THROUGH PORT A 
001264 000000 TIMEAP: .WORD 0 “;PORT A TIMEOUT VALUE + 25% 

1266 000000 TIMEAM: .WORD 0 sPORT A TIMEOUT VALUE - 25% 
001270 000000 TIMEB: .WORD 0 ; THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 
001272 000000 TIMEBP: .WORD 0 sPORT A TIMEOUT VALUE + 25% 
001274 000000 TIMEBM: .WORD OQ sPORT B TIME VALUE ~ 25% 
001276 000000 TIMES: .WORD 0 STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 
001500 000000 KYBCTL: .WORD 0 :SINGLE TEST INDICATOR 
001302 000000 CHGADR: .WORD 0 :CHANGE THE RH/RM ADDRESS INDICATOR 

-SBTTL RH/RM UNIBUS AND VECTOR ADDRESSES 

001304 176700 SRMADR: .WORD 176700 ;RH/RM UNIBUS ADDRESS 
001306 000254 SRMVEC: .WORD 254 ; INTERRUPT VECTOR ADDRESS 


LS ee eee ee ee - -—<- 


DOnNAULSWR OO ODONOUS Wr 


eed eed od wd etd od 


RMRBO RMO5S/3/2 DU POR TST 1 
POINTER TABLE 


072724 


101576 | 


072745 
077341 
101230 
101516 


072767 


101551 


073102 
77604 


0 
101260 
101523 


073150 
100054 
101332 
101523 


B 8 
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SEQ 0024 


-SBTTL ERROR POINTER TABLE 
: *THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR a CAN OCCUR. 
*T THE INDEX NUMBER 


: *NOTE2: 


HE INFORMATION IS OBTAINED BY USING 
: sLOCATION hte THIS NUMBER 


EX FOUND IN 
INDICATES al ha Lee IN THE ie, IS PERTINENT. 

SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC) 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


¢sPOINTS TO THE ERROR MESSAGE 


;;POINTS TO T ATA 
;:POINTS TO THE DATA FORMAT 


;WRONG DRIVE TYPE 
;DRIVE NOT ON LINE 

;SERIAL NUMBERS NOT THE SAME 

;DRIVE NOT SEIZED BY PORT 'N' 

;WRONG STATUS SEEN BY THE SEIZING PORT 


sREGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED 


_ CZRMRBO RMOS/3/2 DU POR TST 1 


ERROR POINTER TABLE 


2 00 2 . 


43 
44 


45 
46 001570 


635 001416 


073250 
077660 
101312 
101531 


073331 
077604 
101260 
101523 


073361 
100003 
1012350 
101516 


101544 © 


073515 
100054 
1013352 
101523 


101332 


101312 
101531 


073724 


077660 


101312 
101531 


C §& 
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sREGISTER CONTENTS INCORRECT AFTER RELEASE/T’MEOUT 


sREGISTER CONTENTS INCORRECT 


: CONTROL BUS PARITY ERROR WHILE READING REGISTER 


:DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 


> "VOLUME VALID* BIT NOT SET BY READIN PRESET 


3 "VOLUME VALID’ SET ON THE OPPOSITE PORT 


:THE ATTN BIT WRONG AFTER TIMEQUT - REQUEST NOT SET 


sATTN BIT WRONG AFTER RELEASE = REQUEST WAS SET 


2 OS EE a 


SEQ 0050 


CZRMRBO RMO5/3/2 DU POR TST 1 


~ ERROR POINTER TABLE 


| 
| 
| 


+ 


oa 
DDYAARWNISSRIEARALLS 


MMM 
RANLS 
5 
= 
Ww 
Nm 
Nm 


5 001524 
6 001526 


MMMM 
Con; ® 


139 001544 
140 001546 
141 
142 
143 
144 
145 001550 
146 001552 


147 001554 
148 001556 


073777 
077660 
101312 
101531 


074056 
100550 
101420 
101544 


1071544 


074211 
100174 
101350 
101540 


074276 


101516 


074423 
100550 
101410 
101544 


101540 


sERROR 17 





D 8 
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sATIN BIT WRONG AFTER RELEASE ~ REQUEST NOT SET 


sDRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 


sDRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 


sDRIVE NOT IN NEUTRAL AFTER TIMECUT, REQUEST NOT SET 


; TIMEOUT CLEARED THE DRIVE'S ERROR BIT 


sRELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 


:TIMEQUT ONE=SHOT DID NOT RETRIGGER 


sDRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


re 


SEQ 0031 


, E 8 
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- ERROR POINTER TABLE SEQ 0052 
| 157 

128 *ERROR 27 
160 001570 974553 EM27 REGISTER WRONG AFTER RELEASE WITH REQUEST SET 
161 001572 077660 DH7 

| 182 001574 101312 DT7 

| 165 001576 101531 DF7 
165 :ERROR 30 

| 167 001600 074631 EM30 DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 

| 168 001602 100550 DH36 

| 169 001604 101410 DT 36 
170 001606 101544 DF 36 
16 sERROR 31 
174 001610 074726 EM31 DRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 
175 001612 100451 - DH31 
176 C01614 101376 DT31 
44 001616 101540 | DF 31 
fa sERROR 32 
181 001620 075003 EM32 ;ATTN BIT WRONG AFTER RECALIBRATE COMMAND 

| 182 001622 077604 DHS 
183 001624 101260 DT5 ; 
184 001626 101523 DF5 } 
186 ZERROR 33 | 
188 001630 075054 EM33 :DRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 
189 001632 100550 . DH36 , 
190 001634 101410 D136 | 
191 001636 101544 DF 36 4 
192 7 
+a zERROR 34 
195 001640 075156 EM34 DRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED 
196 001642 100550 DH36 
197 001644 101410 D136 
198 001646 101544 DF 36 
200 TERROR 35 
202 001650 075261 EM35 DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEOUT ONE SHOT 
203 001652 100550 DH36 | 
204 0014654 101420 D137 
205 001656 101544 DF 36 
OR sERROR 36 
209 001660 075340 EM36 TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
210 001662 100550 DH36 
211 001664 101410 D136 
212 001666 101544 DF 36 
213 

| 


| 


CZ7RMRBO RMOS/3/2 DU POR TST 1 


_ ERROR POINTER TABLE 


4 

244 001730 
245 001732 
246 001734 


251 001740 
| 252 001742 
253 001744 
254 001746 
255 
256 

257 

258 001750 
261 001756 
262 
263 
264 
265 001760 


075412 
100550 
101420 
101544 


075460 
077341 
101362 
101516 


075535 
100272 
101362 
101516 


075577 
100577 
101430 
101547 


101547 


075742 
100616 
101376 
101540 


076017 
077341 
101230 
101516 


076071 


101540 


sERROR 37 


F § 
MACRO V046.00 4-APR-81 18:06:25 PAGE 8-4 


:DRIVE 1S NON-EXISTENT 


ATTENTION FOR PORT NOT RESET BY MASSBUS CLEAR 


;TIMEOUT CLEARED ATTENTION BIT 


:DRIVE NOT IN NEUTRAL OR SEIZED 


sDRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 


:WRITE ATTENTION BIT DID NOT SET PORT REQUEST 


:PORT SELECT SWITCH ON DRIVE NOT IN ‘A/B' 


CAN'T ACCESS DRIVE THROUGH EITHER PORT 


SEQ 0054 


G 8 
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ERROR POINTER TABLE 


a ER 
_— oo - 2 oer ew oe 


271 
272 001770 076140 EM47 sATIN BIT FOR SEIZING PORT NOT CLEARED BY DRIVE CLEAR 
273 001772 100272 DH23 
274 001774 101362 DT23 
275 001776 101516 DF 1 
276 
Soe sERROR 50 
279 02000 076226 EMSO sATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMMAND 
280 002002 7100054 DH13 
281 002004 101332 D713 ‘ 
282 002006 101523 DFS 
® 283 
7 sERROR 517 
286 002010 076310 EMS1 :ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 
287 002012 077604 DH5 
288 002014 101260 DT5 
289 002016 101523 DFS 
290 
34) sERROR 52 
293 002020 076377 EMS2 zsATTN BIT SET AFTER TIMEOUT, ‘ERR’ SET, NO REQUEST 
294 002022 100054 DH13 
295 002024 101332 D115 
Soe 002026 101523 DF5 
So sERROR 53 
300 0020 076472 EMS3 :CAN'T READ ATIN BIT FROM OPPOSITE PORT 
301 002032 100272 DH23 
302 0020 101230 DT1 
303 002036 101516 DF1 
304 
ane sERROR 54 
307 902040 076553 EM54 ZRELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 
308 002042 100174 DH22 
309 002044 101450 DT54 
‘) 002046 101540 DF 31 
aes sERROR 55 
314 002050 07664 EMS5 ; TIMEOUT ONE-SHOT IS LESS THAN 500 MS 
315 002052 1010117 DH55 
316 002054 101462 DT55 
$e 002056 191551 DF55 
$n ZERROR 56 
321 002060 076713 EM56 ;RH/RM DIDN'T RESPOND TO ADDRESSING 
322 002062 101067 DH56 
323 002 101474 DT56 
324 002066 101555 DF 56 
325 
326 
327 sERROR 57 


a ee - «+. + «oe « —-~- — ee - 


ae ee 


328 
329 002070 


nd aed eed od 
ALNO 


374 002156 
375 


CZRMRBO RMO5/3/2 DU POR TST 1 
ERROR POINTER TABLE 


076756 
101076 
101500 
101523 


077017 


10 

101516 
077115 
100054 


101332 
101525 


077163 
101544 
077225 
077660 


101312 
101531 


077274 


~ 077604 


101260 
101523 


sERROR 


: ERROR 


; ERROR 


s ERROR 


> ERROR 


; ERROR 
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;PORT REQUEST FLOPS WRONG 


ATTENTION BITS NOT RESET BY RMAS 


sATTENTION NOT RESET BY GO 


sATTENTION RESET BY GO WHEN NOT SEIZED 


sDRIVE SEIZED BY UNIT READY CHANGE 


. sATTENTION NOT SET BY UNIT READY CHANGE 


:VV NOT RESET BY UNIT READY 


EE OS EE ER eS Su ec au | ee ee 


SEQ 0055 


CZRMRBO RMOS/3/2 DU POR TST 1 
| ERROR POINTER TABLE 


00 
? 002232 
002234 


002240 
002244 


602246 


CO NOUS W OW 


_—b ww nd 


011600 


005037 
0004 


012737 


013746 


000403 
012716 


002174 


001302 
177777 


000000 


0011700 
001140 


177777 


002460 
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0013502 


:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: 


~SBTTL 
START: 


START1: 
START2: 


- SBTTL 


iz CLEAR T 


MOV ASTA 
;z INITIALIZE A FEW VECTORS 


MOV (SP) RO ;SAVE PC WHERE THE TIME OUT OCCURED 
TST -(ROS ‘ADJUST PC <2 

CMP (SP) +, (SP)+ *RESTORE STACK POINTER 

TYPE ,65$ i: TYPE ASCIZ STRING 

BR 64$ GET OVER THE ASCIZ 

"ASCIZ. <CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 

MOV RO,-(SP) :SETUP FOR TYPING OUT PC 

TYPOC 


NOP 70. "HALT(0)* INSTRUCTION HERE IF YOU WISH 
TO STOP ON UNEXPECTED TIMEOUT. 


START OF PROGRAM 


CLR CHGADR 
BR 


:CLEAR THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 
START2 


3;GO TO THE START 


MOV 4-1, CHGADR ;SET THE ‘CHANGE RH/RM ADDRESS’ INDICATOR 
NOP 

INC #0 sTTY LOOP, WAIT FOR INCREMENT 

BNE - ;OF WORD 

RESET ;CLEAR THE WORLD 


ee Mee THE COMMON TAGS 
HE COMMON TAGS (S$CMTAG) AREA 
MOV ASCMTAG,R6 + eFIRST LOCATION TO BE CLEARED 


CLR (R6) + ;CLEAR MEMORY LOCATION 
CMP A#SWR ,R6 43 ; DONE ? 
BNE . 26 ;LOOP BACK 


K IF NO 
CK,SP ::SETUP THE STACK POINTER 


MOV A#SSCOPE ,A#IOTVEC ‘fgcr VECTOR FOR SCOPE ROUTINE 
MOV #340 ,aMIOTVEC+2 ;:LEVEL 7 
MOV RROR , AWEMT VEC EMT VECTOR FOR ERROR ROUTINE 
MOV #340, aWEMTVEC+2 3:1 7 


VEL 
MOV WSTRAP , AA TRAPVEC :gTRAP VECTOR FOR TRAP CALLS 


MOV #340, a@#TRAPVEC+2;LEVE 
MOV SENDCT,SEOPCT  :;SETUP END-OF-PROGRAM COUNTER 
CLR $TIMES :- INITIALIZE NUMBER OF ITERATIONS 


init THE ESCAPE ON ERROR ADDRESS 


MOVB #1, SERMAX ;sALLOW ONE ERROR PER TEST 
MOV ” 2 SLPADR : FINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV PERR THE ERROR LOOP ADDRESS 


2 $L ; SETUP 
et FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


sEQUAL TO A * 
MOV 


64$: 


SETUP FOR A SOF TWARE SWITCH REGISTER. 
@WERRVEC,-(SP) ;;SAVE ERROR VECTOR 
C :3SET UP ERROR VECTOR 


MOV # , SWR ;SETUP FOR A HARDWARE SWICH REGISTER 

MOV #DDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 

CMP 4-1 ,aSWR +e TRY TO REFERENCE HARDWARE SwWR 

BNE 66$ ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
:;AND THE HARDWARE SWR IS NOT = -1 

BR 65$ ;;BRANCH TF NO TIMEQUT 

MOV #65$, (SP) :zSET UP FOR TRAP\ RETURN 


om ee Bene tee ee ee —--—. <= Senne a ee —s 


SEQ 0046 


ey 


Z 
N 


104406 


1 
013746 
104403 
001 
000 
104401 
013746 
104403 
001 


000 
104401 


RMRBO RMO5/3/2 DU POR TST 1 
ITIALIZE THE COMMON TAGS 


000176 
000174 
000004 


002160 
000300 


177777 
066110 
002550 


072372 


001224 
001224 


072421 


072473 
001226 


001207 


i § 
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000042 


000176 


007154 


000007 


001226 
001226 


65$: 
66$: 


RT] 


MOV ASWREG, SWR Del TO SOFTWARE SwWR 
MOV #DISPREG DISPLA 


MOV (SP) +, SeERRVEC "; sRESTORE\ERROR VECTOR 


; SETUP _— TRAP VECTOR FOR nme reo BUS TIMEOUTS 


. SBTTL 


MBADTMO,ERRVEC ;SETUP FOR UNGXPECTED TIMEOUT 
MOV WPRO,ERRVEC+2 LEVEL 6 


TYPE PROGRAM NAME 


:: TYPE a NAME a PROGRAM IF FIRST PASS 


70$: 


1$: 


2$: 


sizFIRST TIME? 

67$ £3 C 

CMP HSENDAD , a442 3 ;ACT=-11? 
67$ ;;BRANCH IF YES 

TYPE ,68$ i TYPE ASCIZ STRING 

BR 7$ GET OVER THE ASCIZ 

-ASCIZ <CRLF>@CZRMRBO - * RM05/3/2 DUAL PORT LOGIC TEST, PT 1@<CRLF> 


GET Bay, 4s SOFTWARE SWITCH REGISTER 


TST + ARE WE RUNNING UNDER XXDP/ACT? 
BNE 69$ :BRANCH IF Y 

a oe : SOFTWARE SWITCH REG SELECTED? 
GTSWR 3:GET SOFT=-SWR SETTINGS 


BR 70$ 
MOVB #1,$AUTOB :2SET AUTO-MODE INDICATOR . 


JSR PC,$TKINT ;SETUP THE TTY KEYBOARD 
JSR PC , CHANGE s CHECK/CHANGE THE RH/RM ADDRESS 
TYPE -ENTERA :ENTER DRIVE ADDRESS 

:GET THE ADDRESS 


(SP)+,PORTA :STORE THE ADDRESS 
CMP PORTA, #7 SEE IF ADDRESS TOO LARGE 
BLOS 2 “BR IF NOT 
TYPE ,ADRERR TYPE ADDRESS ERROR MESSAGE 
BR 1$ : : TRY AGAIN 
MOV PORTA,PORTB :GENERATE THE PORT B ADDRESS 
INC PORTB : INCREMENT THE ADDRESS 
BIC #16,PORTB : LEAVE BI 
MOV PORTA. -{SP) Me iS A, ADDRESS ON THE STACK 
BIC #°C6, (SP) 


Hg 


1'g 2 7“. PORT 8 ADDRESS 
A ADDRESS | 


BIS (SP)+,PORTB 
TYPE —, PORTAIS 
MOV 


PORTA, -(SP) i: SAVE PORTA, FOR TYPEoUT 
TYPOS =:GO TYPE=-OCTAL ASCII 
‘BYTE 1 =: TYPE 1 DIGIT(S) 


‘ 0 
TYPE -PORTBIS 
MOV PORTB,-(SP) 


;; TYPE PORT B ADDRESS 
TYPOS :;GO TYPE--OCTAL ASCII 
wis 23 TYPE 1 DIGIT(S) 
-BYTE 0 ; SUPPRESS “yh ZEROS 


TYPE » $CRLF : ANOTHER CR= 


i 


CZR 
GET 


MRBO RMO5/3/2 DU POR TST 1 


VALUE FOR SOF TWARE 
51 003000 013737 
2 003006 


106 003276 


001224 
00006 
177770 


072522 


177776 


003154 
072560 


003374 
101702 


072600 


101556 
001300 


001207 
072675 
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SWITCH REGISTER 


001230 
001230 
001230 
001236 


003244 
001104 


3$: 


1$: 


2$: 


3$: 


4$: 


: CHANGE 
CHANGE : 


1$: 


MOV PORTA,PORTC ;GENERATE ADDRESS OF DRIVE NOT TESTED 
ADD #6,PORTC ; COMPLEMENT SOME BITS 

BIC #°C7,PORTC : SAVE ONLY LOWER BITS 

MOV PORTA,R1 ;USE PORT A_ ADDRESS AS INDEX 

MOVB ATABIT(R1),ASR1 — ;GET ATTENTION BIT FOR DRIVE 

CLR TIMEA ;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
CLR TIMEAP ;CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
CLR TIMEB ;CLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
CLR TIMEBP sCLEAR TIMEOUT ONE=SHOT VALUE LOCATION 
JSR PC,CKCLK ;SETUP CLOCK 

JMP EXEC ;CLOCK HAS BEEN STARTED 

TYPE »~NOCLOCK 7NO CLOCK ON SYSTEM 

HAL T ;FATAL ERROR 

BR 3$ ; INTERLOCK THE HALT 


sROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 
. EXEC: 


RESET :CLEAR EVERYTHING 
CLR S :CLEAR THE PROCESSOR STATUS WORD 
TYPE  ,$CRLF > CR-LF 
MOV $RMADR RO =RH/RM ADDRESS FOR INDEXING 
MOV #STACK.SP :LOAD STACK POINTER 
JSR PC, CKCLK “START THE CLOCK 
NOP :RETURN IF NO CLOCK 
JSR PC, S$TKINT : INITIALIZE THE KEYBOARD 
CLR KYBCTL :CLEAR SINGLE TEST INDICATOR 
CLR $PASS =CLEAR THE PASS COUNT 
MOVB  #1,$ERMAX 7SET ERROR MAX TO 1 
MOV #..SLPADR s INITIAL SETTING FOR LOOP ADDRESS 
MOV #..$LPERR : INITIAL SETTING FOR LOOP ON ERROR ADDRESS 
TYPE ,TESTNO :ASK FOR TEST NUMBER 
RDOCT 7GET THE NUMBER 
MOV (SP)+,R1 *PUT ENTRY INTO R1 
BNE 2 *BR IF NOT ZERO 
JMP TST1 . sENTER ZERO - PERFORM ALL TESTS 
CMP R1,MAXTN >SEE IF NUMBER GREATER THAN MAXIMUM 
BLE 3$ :BR IF LESS OR EQUAL 
TYPE - ,BADNO :BAD ENTRY 
i$ : TRY AGAIN 
DEC R1 DE CREMENT ENTRY 
ASL R1 “SHIFT IT LEFT 
MOV. TSTADR(R1),4$ :GET THE TEST ADDRESS 
INC KYBCTL *SET SINGLE TEST INDICATOR 
MOV #1,$ICNT ;PRESET ITERATION COUNT 
JMP a4$ TO THE SELECTED TEST 
.WORD 0 : TEST ADDRESS GOES HERE 


THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


TST CHGADR ; CHANGE THE ADDRESS ? 

BEQ 33° :BR IF NOT 

CLR — CHGADR ‘ao THE INDICATOR 

TYPE -ADDRIS OUT WHAT THE PRESENT ADDRESS IS 
V R,-(SP) ‘PUT THE ADDRESS ON THE STACK 

TYPOC + TYPE THE ACTUAL ADDRESS 

TYPE » SCRLF CR=L 

TYPE »NTRH ASK FOR NEW ADDRESS 


me ee memes 2 -o- --« 


SEQ 0058 


“1D 


saesesesesssas 
ae rapaeaeses 


MRBO RMOS/3/2 DU POR TST 1 
VALUE FOR SOF TWARE 


001304 
003336 


001304 
000002 


000004 


000006 000004 


i 
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SWITCH REGISTER 


000004 


64S: 


5$: 


RDOCT 
T 


=e 


:0 OR *CR' ENTERED ? 
(BR IF EITHER E ENTERED (NO ADDRESS CHANGE) 
+ CORRECT THE STACK POINTER 
;LOAD TRAP ADDRESS 
GET RH/RM ADDRESS 
;RESPONDS AT THAT ADDRESS ? 
;BR IF YES 


RESET THE STACK FOINTER 
;GET ADDRESS AGAIN 
i RESTORE THE VECTOR 

E TURN 


SEQ 0059 


012737 
112737 
012706 
012737 


012760 


MRBO RMO5/3/2 DU POR TST 1 


001304 
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001126 


Sss Sss §& 
— as — <2) —d — 
ew 
N 


benbash enbanbond 
NNN See 


eee HS 


.SBTTL TESTS 
TSTIAA: MOV SRMADR , RO ;;RESTORE RO AFTER END OF PASS 
MOV #PR5,-(SP) ;;PUT NEW PS ON STACK 
MOV #64$,-(SP) :;PUT NEW PC ON STACK 
RT] 3;POP NEW PC AND PS 
643: 
, REAR ERARAAARRERRARAEEEAEEEAERERKEREEKEEEEHEEEEEEEREEEEEEERKERKHHEH 
: #TEST 1 NEUTRAL ACCESS TEST 


: VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 


te A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, ms THE 
¢* DRIVE IS A DUAL PURT RMOS, RMO3 OR RMO2 AND THAT THE DRIVE 
:* IS ONLINE (RMDS HAS ‘MOL’, ‘PGM', ‘DPR’, & ‘DRY’ BITS SET), 
Zz? AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS 
;* _ THE SAME. 
-* 
:* B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
** 
j {SSH RRERARARRRRRAARRERERE AREER NER RRR 
TST 
TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ ;BR IF NOT 
BPL 1$ :BR_IF JUST ENTERED TEST 
JMP EXEC sRETURN & GET NEXT TEST NUMBER 
1$: MOV #~T ,KYBCTL :SET SINGLE TEST INDICATOR 
2$: MOV MTEST1,$LPADR ;SETUP SCOPE LOOP ADDRESS 
ei MOV #TEST1,$LPERR SETUP ERROR LOOP ADDRESS 


MOVB #1,$TSTNM 
MOV #STACK, SP 
MOV #1,$TIMES 2 DO 1 ITERATION 

MOV #CLR,RMCS2(RO) ;INITIALIZE THE MASSBUS 


; VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A&B 


ah #1 TO TEST NUMBER 
THE STACK POINTER 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV PORTA,PT sMOVE PORT ADDRESS TO LOCATION +p TYPEOUT 
TST RMDS (RO) :SEE IF DRIVE (PORT A) PRESENT 

CLR CKERR :CLEAR THE ‘CHECK ERROR® INDICATOR 

MOV RMCS2(RO) , SBDDAT GET CONT 2 


ENTS OF RMCS 
MOV #RMCS2,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD RO, SBDADR ";ADD_RH/RM BASE ADDRESS 

CLR $GDDAT sWHAT REGISTER SHOULD BE 

MOV yay le $STMPO ;MOVE REGISTER CONTENTS TO ‘STMPO* 
BIC #*°CNED,STMPO ;SAVE SPECIFIED BITS 


CMP SGDDAT , STMPO >COMPARE THE BITS 
BEQ 64$ ;BR_ IF OK 

MOV SBDDAT , STMP4 COPY ‘BAD DATA’ 

BIC A#NED ,STMP4 :CLEAR THE MASKED BITS 

BIS STMP4 , SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 


COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


LE A 


SEQ 0040 


N 8 
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F 
| TI NEUTRAL ACCESS TEST SEQ 0041 
003604 000240 64$: NOP 
| 005737 001250 TST KERR ;WAS 'NED' SET ? 
003612 001403 BEQ +10 NOT 
003614 012760 000040 000010 MOV #CLR.RMCS2(RO) “ISSUE MAS SBUS INIT TO CLEAR ‘NED' 
003622 113760 001226 000010 MOVB  PORTB,RMCS2(RO) °:SELECT P 
003630 013737 001226 001240 MOV PORTB TNR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003636 005760 000012 TST RMDS (RO) :SEE IF DRIVE (PORT B) PRESENT 
003642 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
003646 016037 000010 001126 MOV RMCS2(RO),$BDDAT ;GET CONTENTS OF RMCS2 
003654 012737 000010 001122 MOV #RMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
003662 060037 001122 ADD RO, $BDADR ADD RH/RM BASE ADDRESS 
003666 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 
003672 013737 001126 001164 MOV SBDDAT.$TMPO = ;MOVE REGISTER CONTENTS TO ‘STMPO’ 
003700 042737 167777 001164 BIC #°CNED,$TMPO ;SAVE SPECIFIED BITS 
003706 023737 001124 001164 CMP SGDDAT,S$TMPO ~ ; COMPARE THE 
003714 001414 BEQ 66$ IF Ok 
003716 013737 001126 001174 MOV SBDDAT,$TMP4 “COPY "BAD DATA® 
003724 042737 010000 001174 BIC #NED , STMPG : CLEAR THE MASKED BITS 
003732 053737 001174 001124 BIS STMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
603740 104037 ‘EMT 37 
003742 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
003746 000240 66$: NOP 
003750 005737 001250 TST CKERR :WAS 'NED' SET ? 
003754 001403 BEQ +10 *BR IF NOT 
i 003756 012760 000040 000010 MOV #CLR,RMCS2(RO) :ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
35 : : CONFIRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND IS DUAL PORTED 
40 003764 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;:SELECT PORT A 
003772 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004000 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
004004 016037 000026 001126 MOV RMDT(RO),$BDDAT °:GET CONTENTS OF RMDT 
004012 012737 000026 001122 MOV WPMD. SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004020 060037 001122 ADD ADR :ADD RH/RM BASE ADDRESS 
004024 012737 024027 001124 MOV RoSebom SGDDAT WHAT REGISTER SHOULD 
004032 022737 024024 001126 CMP #024024,$8DDAT :DUAL PORT RMO3 ? 
004040 001413 . BEQ 68$ “YES !! 
004042 022737 024025 001126 CMP #024025, SBDDAT ; DUAL PORT RMO2 ? 
004050 001407 BEG “YE 
004052 023737 001124 001126 CMP $GDDAT,$BDDAT :IS rie REGISTER OK ? 
004060 001403 BEQ 68$ “BR IF OK 
004062 104001 EMT 1 
004064 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004070 000240 68$: NOP 
004072 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B 
004100 013737 001226 001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004106 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR' INDICATOR 
004112 016037 000026 001126 MOV RMDT (RO), SBDDAT :GET CONTENTS OF RIMDT 
004120 012737 000026 001122 MOV #RMDT - SBDAD : FORM REGISTER ADDRESS OF ERROR MESSAGE 
004126 060037 001122 : ADD :ADD RH/RM BASE ADDRESS 
004132 012737 024027 001124 MOV RO,SBSADR :WHAT REGISTER SHOU! BE 
004140 022737 024024 001126 CMP #024024,$BDDAT :DUAL PORT RMO3 ? 
004146 001413 BEQ 70$ “YES |! 
004150 022737 024025 001126 CMP #0240¢5,$BDDAT : DUAL PORT RMO2 ? 
004156 001407 BEQ 70$ 
004160 023737 001124 001126 CMP $GDDAT, $BDDAT Ts rie REGISTER OK ? 
004166 001403 BEO 70$ “BR IF OK 
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adeeb abadaded ad and 


NNN 
a el 


001126 


wad a at 
— — 2 oo i Sr 3 
REER VN 


sss sess s 


nm 
RSS 


001126 


70$: 


: VERIFY 


72$: 


74$: 


76$: 


EMT 
COM 
NOP 


1 
CKERR 


sSET THE REGISTER COMPARE ERROR INDICATOR 


THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 


PORTA,RMCS2(RO) 
PORTA,PT 


CKERR 
RMDS (RO) , SBDDAT 
#RMD iF 


; SELECT 


PORT 

:MOVE PORT "ADDRESS TO LOCATION FOR TyPEOUT 
:CLEAR THE "CHECK 
:GET CONTENTS OF 


K ERROR’ INDICAT 


RMD S 
S,$BDADR REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR D RH/RM BASE ADDRESS 
“SGDDAT WHAT REGISTER SHOULD BE 
SBDDAT,$TMPO © :MOVE REGISTER CONTENTS TO *STMPO’ 
#*CPGM.$ AVE SPECIFIED BITS 
SGDDAT . $TMPO ARE THE BITS 
72$ : IF OK 
SBDDAT.STMP4 = :COPY ‘BAD DATA’ 
#PGM, STMPG :CLEAR THE MASKED BITS 
STMPS , SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO) ,$BDDAT "GET CONTENTS OF RMDS 
ARMDS , $BD : REGISTER ADDRESS OF ERROR MESSAGE 
RO, RH/RM BASE ADDRESS 
#MOL 'DPR'DRY.SGDDAT :WHAT REGISTER SHOULD BE 
SBDDAT.$ :MOVE REGISTER CONTENTS TO ‘STMPO’ 
710000, STHPO :SAVE SPECIFIED BiTS 
SGDDAT, stro ; COMPARE THE BITS 
74$ Ok 
SBDDAT.STMP4 §:COPY "BAD DAT 
#1 STMP4  :CLEAR THE MASKED BITS 
STMPS .SGDDAT >*OR* WITH GOOD DATA FOR TYPEOUT 
CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
PORTB,.RMCS2(RO) ;:SELECT PORT B 
PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ZCLEAR THE ‘CHECK ERROR" INDICATOR 
RMDS(RO),S$BDDAT °:GET CONTENTS OF RMDS 
ARMDS , $BD :FORM REGISTER ADDRESS OF ERROR MESSAGE 
: D RH/RM BASE ADDRESS 
#PGM.SGDDAT WHAT REGISTER SHOULD BE 
SEDDAT . ,STMPO §)=3—._ : MOVE REGISTER. CONTENTS TO *$TMPO" 


SGDDAT ,$T 
76$ 
SBDDAT , STMP4 
#PGM,STMP4 
ae eeent 
CKERR 


CKERR 
RMDS (RO) , SBDDAT 





STMPO ;SAVE SPECIFIED 
MPO : COMPARE THE 


:BR IF OK 

:COPY ‘BAD DATA’ 

>CLEAR THE MASKED BITS 

:*OR* WITH GOOD DATA FOR TYPEOUT 


:SET THE REGISTER COMPARE ERROR INDICATOR 


;CLEAR THE ‘CHECK ERROR" INDICATOR 
;GET CONTENTS OF RMDS 


SEQ 0042 


CZ7RMRBO wy be DU POR TST 
r NEUTRAL ACCESS rest | 


004572 


012737 
060037 


012737 
112737 


S28 Sescss Se 
—> — _— wy —> 
— — a od — 
x35 Sees 


S 
— 
Nm 
4) 
Oo 





Cc 9 
MACRO VO04.00 4-APR-81 18:06:25 PAGE 10-3 


001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD AD D RH/RM BASE ADDRESS 
001124 MOV #MOL 'DPR'DRY, SGDDAT :WHAT REGISTER § 
1164 MOV SBDDAT.$T :MOVE 
001164 BIC #*(10600, $TMPO SAVE SPEC! Cir 


001164 CMP $GDDAT »STMPO ; COMPAR 


BEQ I 
001174 MOV SBDDAT,$TMP4 =: COPY "BAD DATA’ 
001174 BIC #10600 STMP4 : CLEAR THE MASKED BITS 
001124 BIS $TMP4,$GDDAT ‘OR’ 
, EMT 2 
COM CKERR 
78$: NOP 


sVERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 


000010 MOVB PORTA,RMCS2(RO) ;SELECT POR 
001124 MOV RMSN(RO) ,SGDDAT ; STORE THE’ POAT A A SERIAL NUMBER 
000010 MOVB PORTB,.RMCS2(RO) ;SELECT PORT B 
001126 MOV RMSN(RO) , SBDDAT :ST ORE THE PORT B ee. NUMBER 
001126 CMP SGDDAT, SBDDAT ARE THEY THE SAME ? 
oe - =BR IF THEY ARE 
174200 BIT #SW15 ,aSwR ;HALT ? 
BNE 1$ 7BR IF SET = PROGRAM HAS ALREADY HAL TED 
HALT sHALT, , POSSIBLE CABLE CONNECTION PROBLEM 
1$: SCOPE ;LOOP ? 
SPEEA RARER AREA EEAEEEEREEREREERARAAERRREAREREEREEHEKEKEEEEE 
s*TEST 2 PORT ‘A* SEIZE/TIMEOUT TEST 
: VERIFY THAT THE DRIVE CAN BE SEIZED BY AE A REMOTE REGISTER AND THAT 
5 IT CAN BE RELEASED BY THE ONE SECOND TIMER. 
- 
;* A. WRITE O0O°S INTO RMDA THROUGH PORT ‘A‘: VERIFY THAT THE DRIVE 
3* HAS BEEN SEIZED. 
-* 
:* B. READ EACH DRIVE REGISTER, EXCEPT RMCS1., THROUGH PORT ‘'B': 
;* VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
-* 
:* C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
:* MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
;* VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE T 
;* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
we 
+ ERERERRERERRERRERER RES E ERR RR RENEE EERE REE E EERE R REE REE 
TST2: 
TST KYBCTL : PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ IF NOT 
BPL 1$ “BR IF JUST ENTERED TEST 
JMP EXEC RETURN & GET NEXT 
001300 1$: MOV #=-1 ,.KYBCTL ;SET SINGLE TEST INDICATOR 
001106 2$: MOV #TEST2, $SLPADR : SETUP SCOPE LOOP ADDRESS 
001110 rest? MOV MTEST2,$LPERR  ;SETUP ERROR LOOP ADDRESS 
001102 MOVB #2,$TSTNM sMOVE #2 TO TEST NUMBER 


REG HOULD BE 
REGISTER ae TO *STMPO’ 
IFIED PF did 


WITH GOOD DATA FOR TYPEOUT 
sSET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 004 


4 


PoeNy 


-———--—-— 
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PORT ‘A* SEIZE/TIMEOUT TEST SEQ 0044 
005012 012706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
a 005016 012737 000002 001176 MOV #2. $TIMES *:D0 2. ITERATIONS 
151 005024 012737 000240 177776 MOV #<5*32.>,a4PS SET APRIORITY TO 5 IN CASE LOOPING 
005032 005037 001262 CLR TIMEA ‘CLEAR TIMEOUT VALUE FOR PORT 
005036 005037 001264 CLR TIMEAP ;CLEAR UPPER tT TIMEOUT TOLERANCE 
005042 005037 001266 CLR TIMEAM :CLEAR LOWER TIMEOUT TOLERANCE 
:START THE TIMER 
005046 005037 001256 CLR TIME :CLEAR THE ELAPSED "Me COUNTER 
005052 012737 003720 001260 MOV #2000.,WATCH SET WATCH TO 2000. 
:SEIZE THE DRIVE THROUGH PORT A 
005060 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
005066 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
005074 005060 000006 CLR RMDA (RO) :WRITE RMDA 
005100 113760 001226 000010 MOVB § PORTB,RMCS2(RO) °;:SELECT PORT B 
605106 013737. 001226 001240 MOV PORTB,PTNBR ;MOV vE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005114 013737 001226 001244 MOV PORTB, OPPRT SITE’ PORT ADDRESS 
005122 016037 000012 001126 MOV RMDS(RO).$SBDDAT :SEE IF DRIVE SEIZED BY PORT A 
005130 010037 001122. : MOV RO, $BDADR :RH/RM BASE S 
005134 062737 000012 001122 ADD #RMDS,SBDADR § :GENERATE BAD REGISTER ADDRESS 
005142 005037 001124 CLR SGDDAT ZREGISTER SHOULD BE ZERO 
005146 023737 001124 001126 CMP SGDDAT,SBDDAT :IS THE REGISTER ZERO 
005154 001403 BEQ 64$ :BR IF IT IS 
005156 104004 3 EMT 4 
005160 000137 006312 a JMP 5$ :BYPASS REST OF THE SUBTEST 
005164 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
005172 013737 001224 001240 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005200 016037 000012 001126 MOV RADS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
005206 042737 020001 001126 BIC #OM'PIP, $BDDAT :CLEAR DONT CARE BITS 
005214 012737 071600 001124 MOV AMOL !PGM'DPR! DRY, SGDDAT z EXPECTED STATUS 
005222 013737 001124 001166 MOV SGDDAT,$TMP1 ;:USE GOOD DATA AS A MASK 
005230 005137 001166 COM $TMP1 : COMPLEMENT THE EXPECTED STATUS 
005234 013737 001126 001164 MOV SDDAT STMPO §: SAVE THE ACTUAL STATUS 
005242 043737 001166 001164 BIC 1, $TMPO ;CLEAR UNWANTED BITS 
005250 023737 001124 001164 CMP Seopat” $TMPO ARE THE EXPECTED STATUS BITS SET ? 
005256 001401 BEQ 65$ “BR IF THEY ARE 
005260 104005 EMT 5 
005262 000240 65$: NOP 
;READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
005264 113760 001226 000010 . MOVB  PORTB,RMCS2(RO) ;:SELECT PORT B 
005272 013737 001226 001240 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005300 016046 000046 . MOV RMEC2(RO),-(SP) :STORE REGISTER RMEC2. PORT B. FOR CHECK 
5 016046 000044 MOV RMEC1(RO),-(SP) :STORE REGISTER RMEC1. PORT B. FOR CHECK 
005310 016046 000030 MOV ),-(SP) :STORE REGISTER RMSN, PORT B. FOR CHECK 
005314 016046 34 MOV RMDC(RO),-(SP) :STORE REGISTER RMDC. PORT B. FOR CHECK 
016046 000032 MOV RMOF (RO),-(SP) :STORE REGISTER RMOF. PORT B. FOR CHECK 
005324 016046 2 MOV RMER2(RO),-(SP) :STORE REGISTER RMER2, PORT B. FOR CHECK 
016046 000020 MOV RMLA(RO),-(SP) :STORE STER RMLA, PORT B, FOR CHECK 
005334 016046 000026 MOV RMDT(RO).-(SP) :STORE REGISTER RMDT. PORT B. FOR CHECK 
005340 016046 000006 MOV RMDA(RO).-(SP) :STORE REGISTER RMDA. PORT B. FOR CHECK 








SO SED ee ee ee Oe eC 


i Eee 
——-—— 


RMRBO RMO5/3/2 DU POR IST 1 


a 
. 
T 


005344 016046 000024 
005350 016046 600014 


005420 012637 001264 
005424 012637 001266 


005430 023727 001256 


001414 
005644 013737 001224 
005652 013737 001172 


Z 
é PORT *A* SEIZE/TIMEOUT T 


MACRO 
EST 


177776 
001262 


000764 


177776 


001240 
001126 
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MOV RMMR1 (RO) ,=(SP) 
MOV RMER1 (RO) ,=(SP) 


sWAIT FOR PORT A TO TIMEOUT 


1$: TST RMDS (RO) 
BNE $ 
TST WATCH 
BNE 1$ 
EMT 36 
JMP 4$ 
2$: MOV #<7*32.>,Q4PS 


MOV TIME ,TIMEA 
JSR R5, TOLER 

.WORD TIMEA ; 
MOV (SP) +, TIMEAP ; 
MOV (SP)+,TIMEAM 


;STORE REG 
;STORE REG 


WAIT FOR THE DRIVE TO TIMEOUT 
;BR WHEN + al OCCURS 
CHECK WATCH 

;BR IF NOT ZERO 


;BYPASS TIMEOUT TIME CHECK 

;SET PRIORITY TO 7 TO STOP CLOCK 
sSAVE THE ELAPSED TIME FOR PORT A 
s CALCULATE THE TOLERANCE 


UE FOR PORT A 


3-25% TOLERANCE 


sVERIFY THAT THE TIMEOUT ONE~SHOT IS AT LEAST 500 MS 


CMP TIME ,#500. sWAS MEASURED TIME AT LEAST 500 MS? 
a $ ;BR IF IT WAS 


;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OuT 
sRESTORE PRIORITY TO 5 


3$: MOV #<5*32.>,@4PS 


:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR RELERR 

MOV #RMDS , en 

ADD RO, SBDAD 

MOV #MOL ! PGM! DPR: DRY, 


MOVB PORTA. RMCS2(RO) 

MOV RMDS(RO).$TMP2 <:GET THE DRIVE” STATUS REGISTER FROM PORT A. 
BIC #PIP!WRL'OM,$TMP2 :CLEAR DONT CARES 

MOV STMP2, STMPO :COPY IT INTO "$TMPO' 


BIC HATA! VV, STMPO 
a PORTB,RMCS2 (RO) 


RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIP!WRL'OM,$TMP3 :CLEAR DONT CARES 
MOV $TMP3,$TMP1 -COPY IT INTO '$TMP1' 


Mp 
BIC #ATA'VV,STMP1 
CMP Po abe /STMP1 


BNE :BR IF NO 
TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 68$ ;BR IF NOT 
EMT 46 
: JMP 70$ sBYPASS THE REST OF THE CHECKS 
66$: MOV ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSA 


$TMP2 , SBDDAT 

PORTB,PTNBR 

MOVB PORTB,RMCS2(RO) 
$TMPO 


MOV PORTA,PTNBR 
MOV $TMPS,$BDDAT 


BEQ 67$ : 


:CLEAR THE ‘RELEASE ERROR ° INDICATOR 
;FORM THE ADDRESS OF RMDS FOR TYPEOUT 


ADD THE I/O BASE ADDRESS 
$GDDAT oe CONSTANT 
7SELECT PORT 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 
:SELECT PORT B. 


>CLEAR PORT DEPE 


SAGE 
; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


CT PORT B. 
IF STATUS EQ 0 FROM PORT A. 
/ ZERO 


E 
2 
D DATA’ FOR ERROR TYPE OUT 


ISTER RMMR1, PORT &, FOR CHECK 
ISTER RMER1, PORT B. FOR CHECK 


NDENT BITS FROM THE COPY 3 
:IS THE es REGISTER THE SAME FROM BOTH PORTS ? 


Oe PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


SEQ 0045 
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PORT *A*® SEIZE/TIMEOUT TEST , SEQ 0046 
f/ 

005660 173760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A. / 

005666 005737 601166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 

005672 001004 BNE 68$ “BR IF NOT 

005674 012737 177777 001254 67%: MOV #-1,RELERR :SET "RELEASE ERROR’ INDICATOR 

005702 104022 EMT tS 

005704 013737 001170 001126 68%: MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 

005712 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT NUMBER 

005720 042737 100100 001126 BIC #ATA!VV,$BDDAT DON'T CHE CK ATIN BIT OR Vv BIT 

005726 023737 001124 001126 CMP $GDDAT,$B8DDAT ‘ALL BITS Ok ? 

005734 001401 BEQ 695 “BR IF OK FROM PORT A 

005736 104007 EMT ? 

005740 (°3737 001172 001126 69%: MOY $TMP3,$BDDAT — ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

005746 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT NUMBER 

005754 042737 100100 001126 BIC HATA'VV,$BDDAT :DON'T CHECK ATTN BIT OR VV BIT 

005762 023737 001124 001126 CMP $GDDAT,$BDDAT  ;:SEE IF READ OK FROM PORT B. 

005770 001401 BEQ 70$ “BR IF Ok 

005772 104007 EMT ? 

005774 000240 70$: 


sCHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
:THE REGISTERS ARE STORED ON THE STACK. 


005776 013737 001226 001240 4$: MOV PORTB,PTNBR : CHANGE "PORT NUMBER’ TO THE OPPOSITE PORT 

006004 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMER1 

006010 062737 000014 001122 ADD ARMER1,SBDADR ;ADDRESS OF RMER1 FOR TYPEOUT 

006016 012637 001126 MOV (SP) +,$BDDAT > CHECK THE STORED CONTENTS OF RMERI 

006022 001401 BEQ +4 sCONTENTS ZERO ? , 

006024 104006 EMT 6 , 

006026 010037 001122 MOV RO, SBDADR sBASE ADDRESS FOR oie take RMMR | . 

006032 062737 000024 001122 ADD #RMMR ,SBDADR ;ADDRESS OF RMMR1 FOR TYPEOUT 

006040 012637 001126 MOV (SP) +, $8DDAT :CHECK THE STORED CONTENTS OF RMMR1 

006044 001401 BEQ . +4 : CONTENTS ZERO ? 

006046 104006 EMT 6 

006050 010037 001122 MOV RO. $BDADR sBASE ADDRESS FOR REGISTER RMDA 

006054 062737 000006 001122 ADD ARMDA , SBDADR zADDRESS OF RMDA FOR TYPEOUT 

006062 012637 001126 MOV (SP) +, $BDDAT > CHECK THE STORED CONTENTS OF RMDA 
001401 BEQ +4 :CONTENTS ZERO ? 

006070 104006 EMT 6 

906072 010037 001122 MOV RO, $BDADR sBASE ADDRESS FOR REGISTER RMDT 

006076 062737 000026 001122 ADD ARMDT , SBDADR sADDRESS OF RMDT FOR TYPEOUT 

006104 012637 001126 MOV (SP) +, $BDDAT sCHECK THE STORED CONTENTS OF RMDT 

C06710 001401 BEQ +4 :CONTENTS ZERO ? 

006112 104006 | EMT 6 

006114 010037 001122 MOV RO, $8DADR ;BASE ADDRESS FOR ge RMLA 

006120 062737 000020 001122 ADD #RMLA , S$BDADR ;ADDRESS OF RMLA FOR TYPEOUT 

006126 012637 001126 MOV (SP) +, $BDDAT sCHECK THE STORED CONTENTS OF RMLA 

006132 001401 BEQ . +4 ;CONTENTS ZERO ? 

006134 104006 , EMT 6 

006136 010037 001122 MOV RO, $BDADR :BASE ADDRESS FOR REGISTER RMER2 

006142 062737 000042 001122 ADD HRMER2 SBDADR  :ADDRESS OF RMER2 FOR TYPEOUT 

006150 012637 001126 MOV (SP) +, $BDDAT :CHECK THE STORED CONTENTS OF RMER2 

006154 001401 BEQ +4 , ;CONTENTS ZERO ? 

006156 104006 EMT 6 

006160 910037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMOF 

006164 062737 0000352 001122 . ADD #RMOF , SBDADR sADDRESS OF RMOF FOR TYPEOUT 

006172 012637 001126 MOV (SP) +, $BDDAT CHECK THE STORED CONTENTS OF RMOF 


006176 001401 BEQ +4 :CONTENTS ZERO ° 
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006352 
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sBASE ADDRESS FOR REGISTER RMDC 
sADDRESS OF RMDC FOR TYPEOUT 
;CHECK THE STORED CONTENTS OF RMDC 


sBASE ADDRESS FOR REGISTER RMSN 
sADDRESS OF RMSN FOR TYPEOUT 
;CHECK THE STORED CONTENTS OF RMSN 


s;BASE ADDRESS FOR REGISTER RMEC1 
sADDRESS OF RMEC1 FOR TYPEOUT 
; CHECK THE STORED CONTENTS OF RMEC1 


;BASE ADDRESS FOR REGISTER RMEC2 
;ADDRESS OF RMEC2 FOR TYPEOUT 
;CHECK THE STORED CONTENTS OF RMEC2 


jeVERIFY THAT THE. DRIVE CAN BE SEIZED BY tM A REMOTE REGISTER AND THAT 


TIMER. 
VERIFY THAT THE DRIVE 


THROUGH PORT °A‘; 


VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 


SHOT IS >500 MS. 


sPERFORMING ONLY SINGLE TEST ? 
:BR IF NOT 


;BR_IF JUST ENTERED TEST 

URN & GET NEXT TEST NUMBER 
:SET SINGLE TEST INDICATOR 

: SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


;MOVE #3 TO TEST NUMBER 
;LOAD THE STACK POINTER 
ITERATIONS 


>SET PRIORITY TO 5 IN CASE LOOPING 


EMT «6 
MOV —- RO, SBDADR 
001122 ADD —- #RMDC,, $BDADR 
MOV (SP) +, $BDDAT 
BEQ #4 CONTENTS ZERO ? 
EMT =—s«& 
MOV —- RO, $BDADR 
001122 ADD —- #RMSN, SBDADR 
MOV (SP) +, $BDDAT 
BEQ ss +4 CONTENTS ZERO ? 
EMT = 
MOV —- RO, SBDA 
001122 ADD —-#RMEC1,SBDADR 
MOV (SP) +, $BDDAT 
BEQ 4G CONTENTS ZeRO ? 
EMT —s«& 
MOV — RO, SBDADR 
001122 ADD —- #RMEC 2, $BDADR 
MOV —- (SP) +, $BDDAT 
BEQ +4 CONTENTS ZERO ? 
5$: SCOPE ;LOOP ? 
CF RRA AAA RARER AERA RARER 
:*TEST 3 PORT *B’ SEIZE/TIMEOUT TEST 
CAN BE RELEASED BY THE ONE SECOND 
-% 
:* A, WRITE Q'S INTO RMDA THROUGH PORT 'B'; 
:¢ HAS BEEN SEIZED. 
* 
;* B. READ EACH DRIVE REGISTER, EXCEPT RMCS1, 
:* VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
-* 
:* (C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
:8 MEASURE THE DURATION OF THE TIMEQUT ONE SHOT AND SAVE THE 
: VALUE FOR LATER USE. 
:* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE S 
-* 
+ RRR RREEERER ETE RER EEE R ERE R ERR ERE ER RRR E ERE E REE ERR REDS 
1513: 
TST = KYBCTL 
BEQ S$ 
BPLitéS 
JMP EXEC : RETURN 
001300 1$: MOV #=1,KYBCTL 
001106 2$: MOV = #TEST3,$LPADR 
0017710, MOV #TESTS.SLPERR 
001102 MOVB = #3, STSTNM 
MOV = #STACK, SP 
001176 MOV = #2. , STIMES :iD0 2. 
177776 MOV =—s-#<5*32..> WPS 
CLR = TIMEB 


;CLEAR TIMEOUT VALUE FOR PORT B 


LE LELLLELL E —— ee ee ee eee eee ete es 


SEQ OU46, 


C2 
TS 


PORT °B* 


006404 
006410 


006414 
006420 


RMRBO RMOS/3/2 DU POR TST 1 


SEIZE/TIMEOUT TEST 


005037 
005037 


005037 
012737 


113760 
013737 


001272 
001274 


001256 
003720 


001260 


000010 
001242 


000010 
001240 
001244 
001126 
001122 


001126 


000010 


001164 


000010 
001240 
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CLR 
CLR 


:START THE TIMER 


CLR 
MOV 


TIMEBP 
TIMEBM 


;CLEAR UPPER TIMEOUT TOLERANCE 
sCLEAR LOWER TIMEOUT TOLERANCE 


;CLEAR THE ELAPSED fy COUNTER 


TIME 
#2000. ,WATCH ;SET WATCH TO 2000. 


:SEIZE THE DRIVE THROUGH PORT B 


64$: 


65$: 
zREAD THE DRIVE 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,SEIZPT : STORE SEIZING PORT'S ADDRESS 

RMDA (RQ) sWRITE RMDA 

PORTA, 3 Nae ;SELECT PORT A 

PORTA,P ; ve PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTA,OP PRT ; OPPOSITE’ PORT ADDRESS 
MDS (RO) , ew a :SEE IF DRIVE SE SEIZED BY PORT B 


RO,SBDA zR RESS 

#RMDS, SBDADR ; GENERATE BAD REGISTER ADDRESS 
SGDDAT “REGISTER SHOULD BE ZERO 
SGDDAT,SBDDAT ;JS THE “ ZERO 

i : IF IT IS 

5$ 7;BYPASS REST OF THE SUBTEST 


;SELECT PORT B 

PORT ADDRESS TO LOCATION FOR TYPEOUT 
SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP DA :CLEAR DONT CARE BITS 

#MOL ! PGM! DPR! DRY, SGDDAT sEXPECTED STATUS 

SGDDAT ,STMP1 :USE GOOD DATA AS A MASK 

STMP1 : COMPLEMENT THE tie STATUS 


PORTB, RMCS2(RO) 
PORTB,PT vE 
RMDS (RO) SBDDAT 


TMP 
SBDDAT , STMPO 7SAVE THE ACTUAL STAT 
STMP1 ,STMPO > CLEAR UNWANTED BITS 
SGDDAT , STMPO ;ARE THE EXPECTED STATUS BITS SET ? 
65$ ;BR IF THEY ARE 


REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 


PORTA,RMCS2(RO) :SELECT PORT A 
PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
:STORE REGISTER RMEC2, PORT A, FOR CHECK 
:STORE REGISTER RMEC1. PORT A. FOR CHECK 
RMSN(RO),-(SP) :STORE REGISTER RMSN, PORT A, FOR CHECK 
“S REGISTER RMDC, PORT A, FOR CHECK 
F, PORT A, FOR CHECK 
REGISTER RMER2, PORT A 
REGISTER RMLA, PORT A 
REGISTER RMDT. PORT A. FOR CHECK 
REGISTER RMDA. PORT A, FOR CHECK 
REGISTER RMMRi, PORT A. FOR CHECK 
REGISTER RMER1. PORT A. FOR CHECK 


RMDA(RO).~(SP)_ : 
RMMR1(RO),.-(SP) :ST 
RMER1(RO).-(SP) STORE 


““IWAIT FOR PORT B TO TIMEOUT 


I 9 
* eee RMOS/3/2 DU POR TST 1 MACRO V04.00 4-APR=-81 18:06:25 PAGE 10-9 


PORT *B' SEIZE/TIMEOUT TEST SEQ 0049 
006722 005760 000012 1$: TST RMDS(RO) :WAIT FOR THE DRIVE TO TIMEOUT 
006726 001006 BNE 2$ BR WHEN TIMEOUT OCCURS 
006730 005737 001260 TST WATCH :CHECK WATCH 
006734 001372 BNE 1$ "BR IF NOT ZERO 
006736 104036 EMT 36 
006740 000137 007344 IMP 4S ;BYPASS TIMEOUT TIME CHECK 
006744 012737 000340 177776 2%: MOV = #<7*32.>,Q#PS = :SET PRIORITY TO 7 TO STOP CLOCK 
006752 013737 001256 001270 MoV —sr TIME, TIMEB ;SAVE THE ELAPSED TIME FOR PORT B 
006760 004537 066324 JSR» RS5,TOLER. + CALCULATE THE TOLERANCE 
006764 001270 WORD TIMEB “TIMEOUT VALUE FOR PORT B 
006766 012637 001272 Mov (SP)+,TIMEBP 425% TOLERANCE 
006772 012637 001274 MoV (SP)+°TIMEBM  :=25% TOLERANCE 
| _ : VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 Ms 
| 006776 023727 001256 000764 CMP —s- TIME, #500. ;WAS MEASURED TIME AT LEAST 500 MS? 
| 007006 103001 BHIS  3$ "BR IF IT WAS 
| 007006 104055 : EMT 55 
| ;VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT 8 TIMED OUT 
007010 012737 000240 177776 3s: MOV § #<5*32.>,a#PS RESTORE PRIORITY TO 5 
| :VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
007016 005037 001254 CLR. RELERR ;CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 
007022 012737 000012 001122 MOV -RMDS.SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
007030 060037 001122 ADD —sYRO,, SBDAD [ADD THE 1/0 BASE ADDRESS 
007034 012737 011600 001124 MOV #MOL'PGM! DPR ! DRY: SGDDAt COMPARISON CONSTANT 
007042 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
007059 016037 000012 001170 MOV RMDS(RO) .STMP2_:GET THE DRIVE STATUS REGISTER FROM PORT A. 
007056 042737 024001 001170 BIC  #PIP!WRL'OM, STMP2 :CLEAR DONT CARES 
007064 013737 001170 001164 MOV $TMP2,$TMPO’—»s ; COPY IT INTO *$TMPO® 
007072 042737 100100 001164 BIC | MATA!VV.$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
007100 113760 001226 000010 MOVB § PORTB,RMCS2(RO) :SELECT PORT B. 
007106 016037 000012 001172 MOV § RMDS(RO),$TMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
007114 042737 024001 001172 BIC  #PIP!WRL'OM, STMP3 :CLEAR DONT CARES 
007122 013737 001172 001166 MOV = $TMP3, STMP :COPY IT INTO *STMP 
007130 042737 100100 001166 BIC WATA!VV,$TMP1 =: CLEAR PORT DEPENDENT BITS FROM THE COPY 
007136 023737 001164 001166 CMP ss STMPO), $TMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
007144 001006 BNE 668 BR IF NOT 
007146 005737 001164 TST —-$TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
007152 001037 BNE 68S “BR IF NOT 
007154 104046 EMT 46 
007156 000137 007342 JMP ss 70 ;BYPASS THE REST OF THE CHECKS 
007162 013737 001170 001126 66$: MOV § $TMP2,$BDDAT | :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
007170 013737 001226 001240 MOV §- PORTB.PTNBR __—s:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007176 113760 001226 000010 MOVB § PORTB.RMCS2(ROY :SELECT PORT B. 
007204 005737 001164 TST — $TMPO ; SEE IF STATUS EQ 0 FROM PORT A. 
007210 001414 BEQ 67 F ZERO 
007212 013737 001224 001240 MOV PORTA, PINBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007220 013737 001172 001126 MOV  $T MP3, SBDD ; BAD DATA’ FOR ERROR TYPE OUT 


007226 3760 001224 000010 MOVB PORTA, RMCSO (RO) :SELECT PORT 
$TMP 1 ; SEE JF, STATUS EQ ZERO FROM PORT 6B. 


004 BN eas 
007242 012737 177777 001254 67$: Ay 4 ated :SET "RELEASE ERROR" INDICATOR 


ee 
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007252 
007260 


013737 
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001172 


001124 


001224 
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000024 
001126 
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001126 688: 
001240 


001126 
001126 


001126 


001126 


001240 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


001122 


69$: 


70$: 
;CHECK THE REGISTERS STORED THROUGH PORT A. 


MOV 


$TMP2, $BDDAT 
PORTA.PTNBR 
HATA! VV, $BDDAT 
SGDDAT, ,$BDDAT 


sLOOK FOR BIT FAILURES WHEN RMDS READ 
; CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR VV BIT 

sALL BITS OK ? 

;BR IF OK FROM PORT A. 


7 
$TMP3,$BDDAT CHECK RMDS “FOR BIT FAILURES - FROM PORT B. 
PORTB.PTNBR ; CHANGE PORT NUMBER 

HATA'VV,$BDDAT DON'T CHECK ATIN BIT OR VV BIT 

SGDDAT, , $BDDAT iSEE IF READ OK FROM PORT B. 


ALL REGISTERS SHOULD BE ZERO. 


:THE REGISTERS ARE STORED ON THE STACK. 


4$: 


PORTA,PTNBR : CHANGE "PORT NUMBER’ TO THE OPPOSITE PORT 
RO, $BDADR ;BASE ADDRESS FOR REGISTER RMER1 
#RMER1,$BDADR ;ADDRESS OF RMER1 FOR TYPEOUT 

(SP) +, $BDDAT CHECK THE STORED CONTENTS OF RMERT 
= :CONTENTS ZERO ? 

RO, $BDADR sBASE ADDRESS FOR bg Ad RMR 1 
ARMMR1,SBDADR ;ADDRESS OF RMMR1 FOR TYPEOUT 

(SP) +,$BDDAT >CHECK THE STORED CONTENTS OF RMMR1 
es :CONTENTS ZERO ? 

RO, SBDADR sBASE ADDRESS FOR REGISTER RMDA 
#RMDA , SBDADR sADDRESS OF RMDA FOR TYPEOUT 

(SP) +,$8DDAT CHECK THE STORED CONTENTS OF RMDA 
ie ;CONTENTS ZERO ? 

RO,$BDADR ;BASE ADDRESS FOR REGISTER RMDT 
#RMDT , SBDADR ;ADDRESS OF RMDT FOR TYPEOUT 

(SP) +,$8DDAT CHECK THE STORED CONTENTS OF RMDT 


ve :CONTENTS ZERO ? 


RO, SBDADR sBASE ADDRESS FOR REGISTER RMLA 
#RMLA, $BDADR sADDRESS OF RMLA FOR TYPEOUT 
(SP) +, $BDDAT sCHECK THE STORED CONTENTS OF RMLA 


= :CONTENTS ZERO ? 


RO, SBDADR sBASE ADDRESS FOR oy NB RMER2 
#RMER2 ,SBDADR ;ADDRESS OF RMER2 FOR TYPEOUT 
(SP)+,$BDDAT >CHECK THE STORED CONTENTS OF RMER2 
he :CONTENTS ZERO ? 

RO,$BDADR :BASE ADDRESS FOR REGISTER RMOF 
ARMOF , SBDADR sADDRESS OF RMOF FOR TYPEOUT 


(SP) +, $BDDAT :CHECK THE STORED CONTENTS OF RMOF 
+4 sCONTENTS ZERO ? 


6 

RO,$BDADR sBASE ADDRESS FOR REGISTER RMDC 
ARMDC , $BDADR ADDRESS OF RMDC FOR TYPEQUT 
(SP)+,$BDDAT CHECK THE STORED CONTENTS OF RMDC 
+4 ; CONTENTS ZERO ? 
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| 13 PORT *B* SEIZE/TIMEOUT TEST SEQ 0051 
! 
| 007570 104006 EMT 6 
| 007572 010037 001122 MOV RO, SBDADR ‘BASE ADDRESS FOR REGISTER RMSN 
| 007576 062737 000030 001122 ADD #RMSN,SBDADR = ;ADDRESS OF RMSN FOR TYPEOUT 
| 007604 012637 001126 MOV (SP)+,$BDDAT | ;CHECK THE STORED CONTENTS OF RMSN 
| 007610 001401 BEQ +4 :CONTENTS ZERO ? 
007612 104006 EMT 6 
007614 010037 001122 MOV RO, $BDADR ;BASE ADDRESS FOR REGISTER RMEC1 
007620 062737 000044 001122 ADD #RMEC1,$BDADR ADDRESS OF RMEC1 FOR TYPEOUT 
007626 012637 001126 MOV (SP)+,$BDDAT CHECK THE STORED CONTENTS OF PME C1 
907632 001401 BEQ +4 :CONTENTS ZERO ? 
007634 104006 EMT 6 
007636 010037 001122 MOV _— RO, $8 ;BASE ADDRESS FOR REGISTER RMECZ 
007642 062737 000046 001122 ADD ARMED, SBDADR ADDRESS OF RMEC2 FOR TYPEOUT 
007650 012637 001126 MOV (SP)+,$BDDAT | ;CHECK THE STORED CONTENTS OF RMEC2 
007654 001401 BEQ +4 :CONTENTS ZERO ? 
007656 104006 EMT 6 
007660 000004 5$: SCOPE ;LOOP ? 
188 
189 : pc ir ua atl cst dpi hpi citrate acacia 


: TEST G PORT "A* SEIZE/RELEASE TEST 
:*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 


ts A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING 0°S INTO RMDS. 
* 
:* B. SET VOLUME VALID AND CLEAR ANY ERROR 
** ; 
:* C. ISSUE A RELEASE COMMAND THROUGH PORT'A’. VERIFY THAT THE DRIVE 
:* RE TURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
% 
Es ° 
007662 TST4: 
007662 005737 001300 TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
007666 001406 BEQ 2$ F NOT 
007670 100002 BPL 1$ “BR IF JUST ENTERED TEST 
007672 000137 003074 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
007676 012737 177777 001300 1S: MOV #~1,KYBCTL :SET SINGLE TEST INDICATOR ; 
007704 012737 007720 001106 28: MOV MTEST4,$LPADR :SETUP SCOPE LOOP ADDRESS 
007712 012737 007720 001110 nes MOV #TEST4.$LPERR :SETUP ERROR LOOP ADDRESS 
007720 112737 000004 001102 ' MOVB #4, $TSTNM :MOVE #4 TO TEST NUMBER 
007726 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
pa 007732 012737 000012 001176 MOV #10. .$TIMES *:D0 10. ITERATIONS 
223 
: START THE TIMER 
007740 005037 001256 CLR : TIME :CLEAR THE ELAPSED TIME COUNTER 
007744 012737 003720 001260 MOV #2000.,WATCH  :SET WATCH TO 2000. MS 


;SEIZE THE DRIVE AND SET VOLUME VALID 
;SEIZE THE DRIVE THROUGH PORT A 
, 007752 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ;SELECT PORT A 








—_—_— ee —- coum 
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MOV $TMP3 , SBDDAT ; "BAD DATA’ ia ERROR TYPE OUT 
3760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 


"A* SEIZE/RELEASE TEST SEQ 0052 
007760 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
007766 005060 000012 CLR RMD RO) ;WRITE RMDS 
007772 013737 001226 001244 MOV ORTB,OPPRT : OPPOSITE’ PORT ADDRESS 
010000 012760 000021 000000 MOV Wot RMCS1 (RO) :SET VOLUME VALID 
010006 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
010012 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 
010020 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE . 
910026 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
010032 012737 000100 001124 MOV #VV,$GDDAT ;WHAT REGISTER SHOULD BE 
. 010040 013737 001126 001164 MOV $BDDAT,STMPO  ;MOVE REGISTER CONTENTS TO ’$TMPO’ 
010046 042737 177677 001164 BIC #°CVV,$TMPO ;:SAVE SPECIFIED BITS 
010054 023737 001124 001164 CMP $GDDAT,$TMPO © :COMPARE THE BITS 
010062 001414 BEQ 66$ “BR IF OK 
| 010064 013737 001126 001174 MOV SBDDAT,$TMP4 =: COPY ‘BAD DATA’ 
010072 042737 000100 001174 BIC #VV, STMPG “CLEAR THE MASKED BITS 
’ 910100 053757 001174 001124 - gls $TMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
010110 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
010114 000240 66$: NOP 
610116 012760 000040 000010 MOV #CLR,RMCS2(RO) :CLEAR DRIVE 
:RELEASE THE DRIVE FROM PORT A 
010124 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
010132 013737 001224 001240 MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010140 012760 000013 000000 MOV W13,RMCS1(RO)° —; ISSUE RELEASE THROUGH PORT 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
010146 005037 001254 - CLR RELERR * :CLEAR THE "RELEASE ERROR * INDICATOR 
010152 012737 12 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
010160 37 001122 ADD RO, $BD pry’ abe THE 1/0 BASE ADDRESS 
64 012737 011600 001124 MOV Y,$GDDAT :COMPARISON CONSTANT 
010172 113760 001224 000010 MOVB _— PORTA, RMCS faoD :SELECT PORT A 
010200 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
06 024001 001170 BIC #PIP'WRL'OM,$TMP :CLEAR DONT CARES 
010214 013737 001170 001164 MOV STMP2,$ sCOPY IT INTO *$TMPO® 
010222 042737 100100 001164 BIC HATA! VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
010230 113760 001226 00001 MOVB TB.RM >SELECT PORT 
010236 016037 12 001172 RMDS (RO) , $T -GET THE DRIVE STATUS REGISTER FROM PORT B. 
010244 042737 024001 001172 BIC #PIP'WRL'OML ST CLEAR DONT CARES 
010252 013737 001172 001166 MOV STMPS,STMP1 >COPY IT INTO °$TMP 
\ 010260 042737 100100 001166 BIC HATA! VV, sth “CLEAR PORT DEPENDEN T BITS FROM THE COPY 
010266 023737 001164 001166 CoP $TMPO,$TMP :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS 2 
: 010276 005 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
010302 001037 70$ ‘BR IF NOT 
010304 104046 EMT 
010306 000137 010472 JMP 72$ sBYPASS THE REST OF THE CHECKS 
010312 013737 001170 001126 68%: MOV $TMP2,$BDDA “SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
010320 013737 001226 001240 MOV TB. PTNBR “SEIZING PORT IF TEST SHOWS DRIVE Nore iia NEUTRAL 
010326 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
010334 005737 001164 ~~ TST $TMPO *SEE IF STATUS EQ 0 FROM PORT A. 
010340 001414 BEQ 69$ “BR IF ZERO 
10342 913737 001224 001240 MOV PORTA,PTNB “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010350 013757 001172 001126 


010356 
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PORT ‘A* SEIZE/RELEASE TEST 


010752 


005737 


001166 
177777 


001254 


011010 


001254 
007126 


001126 
001240 
001126 
001126 


S88 see 
SRS Re 


69$: 
70$: 


71$: 


72$: 


73$: 


75$: 
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al +SEE if STATUS EQ ZERO FROM PORT B. 
g* -ASLEMR SET "RELEASE ERROR’ INDICATOR 


STMP2, ol ;LOUK FOR BIT FAILURES WHEN RMDS READ 
PORTA,PT ; CHANGE PORT NUMBER 


HATA!VV SBDDAT “DON'T CHECK ATTN BIT OR VV BIT 
$GDDAT,$BDDAT  :ALL BITS Ok ? 
71$ “BR IF OK FROM PORT A. 


; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORT GE PORT NUMBER 


*PTNB ; CHAN 
HATA! VV SBDDAT “DON'T CHECK ATTN BIT OR VV BIT 
SDA. ,$BDDAT iSEE I F READ OK FROM PORT B. 


7 
STMPS, oy 


RELERR ;DID DRIVE RETURN TO NEUTRAL 7 
+6 7;BR IF uN NEUT 
1$ 3GO WAIT FOR DRIVE TO TIMEOUT 
PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKE :CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO),SB8DDAT ;GET CONTENTS OF RMDS 
#RMDS, SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR ;ADD RH/RM BASE ADDRESS 
SGDDAT * WHAT REGISTER SHOULD BE 
SBDDAT , STMPO ;MOVE REGISTER CONTENTS TO ‘STMPO’ 
#*CATA.STMPO ;SAVE SPECIFIED BITS 
SGDDAT,STMPO ;COMPARE THE BITS 
73$ $ F OK 
SBDDAT , STMP4 :COPY *BAD DATA’ 
HATA, STMPS ;CLEAR THE MASKED BITS 
+ ile cea ;°OR* WITH GOOD DATA FOR TYPEOUT 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
PORTB,RMCS2(RO) ;SELECT PORT B 
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
CKERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
ARMDS .SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR —_. RH/RM BASE ADDRESS 
SGDDAT ;WHAT REGISTER SHOULD BE 

DAT. STMPO ‘MOVE REGISTER CONTENTS TO ‘STMPO' 
W*CATA,STMPO ;SAVE SPECIFIED BITS 
sypent STO Be ae i BITS 
SBDDAT , STMP4 ;COPY "BAD DATA’ 
HATA, STMP4 ; CLEAR THE MASKED BITS 
STMPS, , SGDDAT ;"OR® WITH GOOD DATA FOR TYPEOUT 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
2$ ;GO CHECK FOR LOOP ON ERROR 


:1F RELEASE COMMAND DIDN'T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 





mee me em ee ee o- meee 


| 
| 


CZRMRBO RMOS/3/2 DU POR TST 1 
PORT *A* SEIZE/RELEASE TEST 


T4 


22% 
$35 


240 
241 


012737 


112737 
012706 
012737 


005037 
012737 


001226 
001226 
000012 


001260 


000012 


N 9 
MACRO VO4.00 4-APR-81 18:06:25 PAGE 10-14 


000010 
001240 


001260 


000010 
001242 


001244 
000000 


001126 


:TO RELEASE THE DRIVE 


1$: 
MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RMDS (RO) :WAIT FOR TIMEOUT TO RELEASE DRIVE 
BNE $ “BR WHEN DRIVE RELEASED 
TST WATCH “CHECK THE WATCH 
BNE 1$ ‘BR IF NOT ZERO 
EMT 36 
2$: SCOPE :LOOP ? 
2 SAAR REE EERE 
: *TEST 5 PORT 'B' SEIZE/RELEASE TEST 
:ATEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
ie A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S INTO RMDS. 
-& 
:* B. SET VOLUME VALID AND CLEAR ANY ERROR 
** 5 
:* C. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
ie RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
** m 
-# 
:: : RARER EEKKKEAKRKEKAEARKKKKKKKKKKKKKKKKKKKKKhKkkhkhee 
TSTS: 
TST KYBCTL ; PERF ORMING ONLY SINGLE TEST ? 
BEQ 2$ F NOT 
BPL 1$ “BR IF JUST ENTERED TEST 
JMP EXEC sRETURN & GET NEXT TEST NUMBER 
1$: MOV #-1, KYBCTL :SET SINGLE TEST INDICATOR . 
2$: MOV ATESTS,$LPADR :SETUP SCOPE LOOP ADDRESS 
ae MOV . #TESTS,S$LPERR :SETUP ERROR LOOP ADDRESS 
' MOVB  #5,STSTNM :MOVE #5 TO TEST NUMBER 
MOV.  #STACK.SP “LOAD THE STACK POINTER 
MOV #10. ,$TIMES 7:D0 10. ITERATIONS 


;START THE TIMER 


CLR TIME ;CLEAR THE ELAPSED - COUNTER 
MOV #2000. ,WATCH :SET WATCH TO 2000. 


sSEIZE THE DRIVE AND SET VOLUME VALID 
>SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
CLR RMDS (RO) E 


sWRITE RMDS 
MOV PORTA,OPPRT ; ‘OPPOSITE* PORT ADDRESS 
MOV #21, RMCS 1 (RO) .2 0 


ET VOLUME VALID 
CLR CKERR :CLEAR THE ‘CHECK ERROR INDICATOR 
MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 


SEQ 0054 


grned 


a 


SWAN NS 
_— 


&* 
Oo 


COCKMOCOCOVCO000 
™ 
nS 


A ed ad ed ed nd 


™m 
i. 
oO 


Nm 
Sy 


LANAI A A A A 
BEBAN SS 


ee em ed ed ed ed ed od 


elelelelelelelelelel ela) 


S 
S 


/ 
‘8 


2 DU POR TST 1 
* SEIZE/RELEASE T 


012737 
7 


013737 


=—eab af 
mM NNMwOT 
Oo ROS 


177777 


001170 
001224 


B 10 
weene V04.00 4=-APR=-81 18:06:25 PAGE 10-15 


000010 
001240 
000000 


001240 
001126 
000010 


001254 


001126 
001240 


; FORM g byt die ADDRESS OF ERROR MESSAGE 


- ADD 
s WHAT REGISTER 


RM BASE ADDRESS 
SHOUL 


D BE 
s;MOVE REGISTER CONTENTS TO ‘*STMPO* 


;SAVE SPECIFIED BITS 
; COMPARE 


THE BITS 


:BR_ IF OK 
:COPY “BAD DAT 


;CLEAR He MASKED BITS 
;*OR' WITH GOOD DATA FOR TYPEQUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


SCLEAR DRIVE 


;SELECT PORT B | 
T ADDRESS TO LOCATION FOR TYPEOUT 
PORT 8 


ISSUE RELEASE THROUGH 






CLEAR THE “RELEASE ERROR ° INDICATOR 
;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

- I/0 BASE ADDRESS 
Fae CONS TANT 


T THE DRIVE STATUS REGISTER FROM PORT A. 
CARES 


; CLEAR 
> COPY IT INTO *STMPO* 
EAR —_i BITS FROM THE COPY 


T THE DRIVE STATUS REGISTER FROM PORT B. 
: CLEAR DONT CARES 

;COPY IT INTO *STMP1° 

>CLEAR PORT DEPENDENT BITS FROM THE COPY 

21S rye STATUS REGISTER THE SAME FROM BOTH PORTS ? 


NO 
“REGISTERS ARE THE SAME: ARE THEY ZERO ? 
;BR IF NOT 


;BYPASS THE REST OF THE CHECKS 


:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
: SEIZING PORT 1 IF TEST SHOWS DRIVE NOT IN NEUTRAL 


T POR 
; SEE 7 STATUS EQ 0 FROM PORT A. 
F ZERO 


:BR 

sSEIZING PORT IF TEST 1 oa DRIVE NOT IN NEUTRAL 
:*BAD DATA’ FOR ERROR TYPE OUT 

:SELECT PORT A 

: SEE ; STATUS. EQ ZERO FROM PORT B. 


SET "RELEASE ERROR" INDICATOR 


MOV #RMDS , SBDADR 
ADD RO, SBDADR 
MOV #VV,$GDDAT 
MOV AT.$ 
BIC #*CVV,$TMPO 
CMP SGDDAT.$T 
MOV SBDDAT, $TMP4 
BIC #VV, STMPG 
BIS $TMP4 , $GDDAT 
EMT 
COM CKERR 
66$: NOP 
MOV #CLR,RMCS2(RO) 
ZRELEASE THE DRIVE /ROM PORT B 
MOVB PORTA. RMCS2(RO) 
— MOV ,PTNBR ; 
MOV #13, RMCS1(RO) 
; VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR 
MOV #RMDS , 
ADD RO,$8D 
MOV #MOL 'PGM'DPR! 
MOVB PORTA RACS2(RO) SELECT 
MOV 
BIC 
MOV 
BIC 
MOV 
BIC : 
MOV $ 
BIC #ATA: VV. STMP1 
CMP STMPO, STMP 
BNE 68$ 
TST STMPO 
BNE 70$ 
EMT =—ss«&6 
JMP 72$ 
68$: MOV STMP2, SBDDAT 
MOV PORTB,PTNBR 
MOVB = PORTB, RMCS2(RO) 
TST $TMPO 
BEQ 69$ 
MOV PORTA, PTNBR 
MOV STMP3. S$BDDAT 
MOVB _—s— PORTA, PACS CRO) 
TST $TMP1 
BNE 70$ 
69$: MOV #-1,RELERR 
EMT 22 
70$: MOV STMP2, SBDDAT 
MOV PORTA, PTNBR 


:LOOK FOR BIT FAILURES WHEN RMDS READ 
HANGE PORT NUMBER 


CZRMRBO RMO5/3/2 DU POR TST 1 


TS 


PORT *B’ SEIZE/RELEASE T 


100100 
001124 


Wu 
Sy 
g 
— 


eeseeceoeoece 
Oo 
— 2 
ao 
SS 
Nm 
we 
> | 
WG 
™N 


011632 


001250 
012140 


001224 
001224 
000012 


ses ess ge ge 
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: 


—~— et 
—— fh) 

mm £9 
NO OO 


ahabeaD aDab ad 
ahaa abadad 
MINN OO 

RAR FFF 


000070 
001240 





723: 


71$: MOV 


73$: 


75$: 
JMP 


#ATA'VV,$BDDAT 
SGDDAT, , $BDDAT 


? 

$TMP3, SBDDAT 
PORTB.PTNBR 
WATA!VV, $BDDAT 
SGDDAT, $BDDAT 


RELERR 
. +6 


1$ 
PORTB,RMCS2(RO) 


PORTB.PTNBR ;MOV 


:DON'T CHECK ATTN BIT OR VV BIT 
ZALL BITS OK ? 

:BR IF OK FROM PORT A 

: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
: CHANGE PORT NUMBE 

‘DON'T CHECK ATTN BIT OR VV BIT 

:SEE IF READ OK FROM PORT B. 

:BR IF OK 

:DID DRIVE RETURN TO NEUTRAL ? 
: T FOR DRIVE TO TIMEOUT 
T TB 


7GO WAI 

- SELEC 

E PORT ADDRESS TO LOCATION FOR TYPEOUT 
INDICATOR 


CKERR sCLEAR THE "CHECK ERROR’ 
RMDS(RO),SB8DDAT ;GET CONTENTS OF RMDS 

#RMDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR ME SSAGE 
RO, $8D ; RH/RM BASE ADDRESS 

$GDDAT WHAT REGISTER SHOULD BE 

SBDDAT , STMPO :MOVE REGISTER CONTENTS TO ‘STMPO’ 
#*CATA,STMPO BITS 


SGDDAT , STMPO 
73$ 

SBDDAT ,STMP4 
HATA, STMPG 
Sines, - SGDDAT 


CKERR 


PORTA -RMCS2 (RO) 
PORTA.P :MOVE PORT ADDRESS TO LOCATION FOR RT YPEQUT 


;SAVE SPECIFIED 
; COMPARE THE 


. 


F OK 
+COPY "BAD DATA’ 
7CLEAR THE MASKED BITS 
7°OR’ WITH GOOD DATA FOR TYPEOUT 
sSET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT A 


CKERR :CLEAR THE ‘CHECK ERROR’ INDICA 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
#RMDS , SBDADR 7FO REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR D _RH/RM BASE ADDRESS 
SGDDAT “WHAT REGISTER SHOULD BE 
SBDDAT , STMPO ;MOVE REGISTER CONTENTS TO "STMPO" 
#“CATA,STMPO ; SAVE SPECIFIED BITS 
SGDDAT , STMPO COMPARE THE BITS 

:BR_ IF OK 
SBDDAT . STMP4 ;COPY “BAD DATA‘ 
#ATA,STMPS :CLEAR THE MASKED BITS 
 f Satna :"OR* WITH GOOD DATA FOR TYPEOUT 
CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


2$ 


:GO CHECK FOR LOOP ON ERROR 


:1F RELEASE COMMAND DIDN' T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
;TO RELEASE THE DRIVE 


1$: 
MOVB 


MOV 
TST 


PORTA,RMCS2(RO) 
;MOV 


PORTA, PTNBR 
RMDS (RO) 


;SELECT PORT 
E PORT ADDRESS 10 LOCATION FOR TYPEQUT 
;WAIT FOR TIMEOUT TO RELEASE DRIVE 


sss esses stesso se seen eS ES ae eee 


i LE ee 
a eee eens ssteteessesstneenssnmemunmes ee 


257 


268 
01 


RMO5/3/2 DU POR TST 1 
PORT *B’ SEIZE/RELEASE TEST 


012126 
012150 


012142 


012242 


012250 


001004 
005737 
001364 
104036 
000004 


005737 


012737 


112737 
012706 
012737 


113760 


013737 
013737 


012760 


601260 
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wd end od end od 
Sse NN 
QOONMIND 


SSsss 
wad 2 2 as 


BNE 2$ ;BR WHEN ght RELEASED 
TST WATCH ;CHECK THE WATCH 
BNE 1$ :BR IF NOT ZERO 
EMT 36 
2$: SCOPE ;LOOP ? 
+s RSS CRRROONE RORSeeseseennnnaneoenenennnseoeeneosesseeesenceeeses 
: TEST 6 PORT *A* NEUTRAL/RELEASE TEST 


:sTEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


. A. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’ WITH THE DRIVE IN 

* NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

POET TITITITITTITITITITTTIL LETTE LETTE TTT TTT TTT TTT TTT TTT Tee 

TST6: 
TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ “BR IF NOT 
BPI. :BR IF JUST ENTERED TEST 
JMP EXEC sRETURN & GET NEXT TEST NUMBER 

1$: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 

2$: MOV ATEST6,$LPADR :SETUP SCOPE LOOP ADDRESS 

eink MOV #TEST6,$LPERR :SETUP ERROR LOOP ADDRESS 
MOVB #6,$TSTNM :MOVE #6 TO TEST NUMBER 
MOV - #STACK,SP “LOAD THE STACK POINTER 
MOV #10. STIMES 7:D0 10. ITERATIONS 
MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV PORTA,SEIZPT ADDR OF PORT WHICH WILL ISSUE RELEASE 

: ISSUE A RELEASE COMMAND : 
MOV '#13,RMCS1(RO)  ;ISSUE A RELEASE COMMAND 

: VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
MOV #MOL 'PGM' DPR! DRY' VV, $GDDAT : COMPARISON CONSTANT 
MOVB = PORTA, RMCS2(RO) SELECT POR 
MOV RMDS(RO).$TMP2 :GET THE DRIVE “STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL'OM,$TMP2 CLEAR, DONT CARES 
MOV STMP2,STMPO :COPY IT INT 
BIC HATA! VV,$T =CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB TB,RMCS2(RO) :SELECT PORT 
MOV RMDS(RO),$TMP3 -GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC APIP'WRL'OM, :CLEAR DONT CARES 
MOV MP3,$T :COPY IT INTO ‘$TMP1' 
BIC HATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP STMPO, $7 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS >? 
BNE 64$ “BR IF NOT 
TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 668 :BR IF NOT 


CZRMRBO mat’ tat DU POR TST 1 
T6 "A* NEUTRAL/RELEASE TEST 


269 
279 


012410 


012614 


001300 


003074 
177777 
012652 
012652 


001226 
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001126 
Q 


001126 
000010 


00 
001126 


001300 
001106 
001110 
001102 


001176 


JMP 68$ :BYPASS THE REST OF THE CHECKS 
64$: MOV $TMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB.PTNBR :SEIZING PORT [F TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB = PORTB.RMCS2(RO) :SELECT PORT 
TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
BEO 65$ ‘BR IF ZERO 
MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $TMP3.$BDDA : "BAD DATA' FOR ERROR TYPE OUT 
MOVB _—s— PORTA.” RMCS2<RO? “SELECT PORT A. 
TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 66$ ‘BR IF NOT 
65$: MOV #-1,RELERR 7SET "RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) CLEAR THE DRIVE 
MOV #15,RMCS1 (RO) “RELEASE THE DRIVE. 
66$: MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA.PTNBR “CHANGE PORT NUMBER 
BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
CMP $GDDAT,SBDDAT ALL BITS Ok ? 
BEO 67s :BR IF OK FROM PORT A. 
67$: MOV STMP3,S$BDDAT ; CHECK RMDS FOR BIT FAILURES - FROM PORT RB. 
MOV PORTB.PTNBR :C PORT NUMBER 
BIC #ATA, $BDDAT “DON'T CHECK THE ATIN BIT 
CMP $GDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
BEQ 68$ :BR IF OK 
EMT ? 
68$: NOP 
SCOPE :LOOP ? 
FERRARA AAA AAREEAAAARAEAAAEREERAAEAREEARAREEREEERAEHKEKEEKEKREESE 
: TEST 7 PORT 'B* NEUTRAL/RELEASE TEST 


:*TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 


A. ISSUE A RELEASE COMMAND THROUGH PORT ‘B* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


* 
* 
** 
+s SHO OROMATERAGERERORRORTEEEteeeRREARREEReenTeneeeEEteneeeeeeeess 
S 


7: 

TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 
BEQ 2$ :BR IF NOT 
BPL 1$ 7BR_IF JUST ENTERED TEST 
JMP EXEC ;RETURN & GET NEXT TEST NUMBER 

1$: MOV 4-1 ,KYBCTL :SET SINGLE TEST INDICATOR 

2$: MOV #TEST?. $LPADR ;SETUP SCOPE LOOP ADDRESS 

west? MOV ATEST7,$LPERR  ;SETUP ERROR LOOP ADDRESS 
MOVB #7 ,STSTNM MOVE #7 TO TEST NUMBER 
MOV ASTACK,SP LOAD THE STACK POINTER 
MOV #10. ,$TIMES 300 10. ITERATIONS 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
MOV PORTB,SEIZPT sADDR OF PORT WHICH WILL ISSUE RELEASE 


SEQ 0055 


CZRMRBO RMOS/3/2 DU POR TST 
1? PORT *B° NEUTRAL /RELEASE TEST 


012714 012760 


012722 


000013 


62888 


Sys 


117 
1226 


8 


177777 
000011 
000013 
001170 


001224 
100000. 
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000000 


001122 
001124 
0 


001126 
001126 


001126 
001240 
001126 
001126 


: ISSUE ee COMMAND 


: VERIFY 


64$: 


65$: 


66$: 


67%: 


68$: 


#13,RMCS1(RO) 


THAT THE DRIVE IS STILL 


RELERR 
#RMDS , $BDADR 
RO, $BDADR 


PORTA, Gite | 
#PIP!WRL!OM,$TMP 
STMP2, STMPO 
MATA! VV ,STMPO 
PORTB,RMCS2(RO) 
RMDS (RO) , STMP3 
#PIP!WRL!OM,$TMP 
STMP3,$TMP1 
MATA! VV. STMP1 
STMPO,STMP1 


STMP2 , SBDDAT 

PORTB ,PTNBR 

PORTB,RMCS2(RO) 
MPO 


, $8DD 
Ayala ~RMCS2(RO) 


66$ 

#~1 ,RELERR 
#11, RMCS1(RO) 
15. eRMCS1 (RO) 


SGDDAT , SBDDAT 
67$ 


7 
$SIMP3 , SBDDAT 
PORTB,PTNBR 
#ATA, $BDDAT 
SGDDAT , SBDDAT 
68$ 


s ISSUE A RELEASE COMMAND 
IN NEUTRAL 


;CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 
;FORM THE ADDRESS OF RMDS FOR TYPEOUT 


THE 1/0 BASE ADDRESS 


: ADD 
#MOL !PGM!DPR! DRY! VV, $GDDAT 


:SELECT PORT 


+ nee CONSTANT 
;GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
ONT CARES 


; CLEAR 
;COPY IT INTO ‘$TMPO' 


PORT DEPENDENT BITS FROM THE COPY 


> CLEAR 
“SELECT PORT 
“GET THE DRIVE STATUS REGISTER FROM PORT B. 
mps AR DONT CARES 


E 
iS wae REGISTER THE SAME FROM BOTH PORTS ? 
REGISTERS ARE THE SAME: ARE THEY ZERO ? 


PENDENT BITS FROM THE COPY 


;BYPASS THE REST OF THE CHECKS 


SET UP 


POSSI 


BLE BAD DATA FOR ERROR MESSAGE 
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
:SELECT PORT 


8. 
; SEE ‘ STATUS EQ 0 FROM PORT A. 
;BR IF ZERO 


sSEIZING PORT IF TEST ‘aos NOT IN NEUTRAL 


;°BAD DATA’ FOR ERROR T 


7SELECT PORT 


A. 
sSEE IF STATUS EQ ZERO FROM PORT B. 
:BR IF NOT 


:SET “RELEASE ERROR’ INDICATOR 
;CLEAR THE DRIVE 
SRELEASE THE DRIVE 


:LOOK FOR BIT FAILURES WHEN RMDS READ 
HANGE NUMBER 


Pg PORT 
:DON' T CHECK THE ATIN BIT 


L BITS OK ? 


‘BR IF OK FROM PORT A 


: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
E PORT NUMBER 


; CHANG 

:DON'T CHECK THE ATTN BIT 
:SEE IF READ OK FROM PORT B. 
;BR IF OK 


—3LOOP ? 


° SATE RARRT RHEE AHR RHEARERARARERAREHRAREREREREEKRE RRR RE eee eee eeeee 


PORT ‘A* RELEASE INTERFERENCE TEST 


“*TEST 10 


a - 


S 


g 


SEQ 0059 


ee 
i 


co ee 
ee ae ee 


ZR MRBO ty 
10 


305 
327 





*a’ 


012737 


112737 
012706 
012737 


113760 


012760 


113760 
013737 
005060 


3/2 DU POR TS’ 1 
RELEASE 


001300 


003074 
177777 
013324 
013324 


000010 
001100 
000012 


001226 
0000 


001124 
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INTERFERENCE TEST 


001300 
001106 
001110 
001102 


001176 


001122 
001126 


* 
a nmnneneneeeenhee#enteses 


"0 7 DW Pp 
+ . . . 


TST10: 


1$: 
2$: 


TEST10: 


*VERIFY THAT A COMMAND ISSUED BY ” PORT IS NOT RECOGNIZED IF THE DRIVE 


1S SEIZED BY THE OTHER PORT 
SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0'S INTO RMDS. 
ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ‘R'. 


Te toa? 'a THE _ THROUGH PORT 'B'. VERIFY THAT THE DRIVE SWITCHED 


RELEASE THE DRIVE THROUGH PORT ‘A’, VERIFY THAT Sous DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


CORREA ARR AARAAEREA RAE EERERERARAEREERAEREREHEEREREERHED KEE 


TST KYBCTL sPERFORMING ONLY SINGLE TES! ? 
BEQ 2$ :BR IF WOT 

BPL 1$ ;BR IF JUST ENTERED TESTI 

JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
MOV ATESTIO,$LPADR ;SETUP SCOPE LOOP ADDRESS 

MOV #TESTIO,$LPERR ;SETUP ERROR LOOP ADDRESS 
MOVB #10, $TSTNM sMOVE #10 TO TEST NUMBER 

MOV ASTACK, SP ;LOAD THE STACK POINTER 

MOV #10. ,S$TIMES ::D0 10. ITERATIONS 


>CLEAR ATIENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) sSEIZE THE DRIVE 

MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13, ag yb sRELEASE THE DRIVE 

MOVB PORTB,RMCS2(RO) ;SELECT PORT #8 

CLR (RO) :SEIZE THE DRIVE THROUGH PORT ‘B" 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 


>SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
CLR RMDS (RO) WRITE RMDS 

MOVB PORTA,RMCS2(RO) ;SELECT PORT 


A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS , obese FOR TYPEQUT 


MOV PORTA, OPPRT :*OPPOSITE* PORT 

MOV RMDS (RO) , SBDDAT i SEE IF DRIVE SEIZED BY PORT B 
MOV RO, $BDADR H/RM BASE ADDRESS 

ADD #RMDS , SBDADR GENERATE BAD REGISTER ADDRESS 
CLR $GDDAT :REGISTER SHOULD BE ZERO 

CMP $GDDAT $BDDAT ;1S THE REGISTER ZERO 

BEQ 64$ :BR IF IT IS 


EES OSSD Oe ee ee ees ee 1 oo ee ee me 6 ee eee Oe 


SEQ OG06U 


oes RMOS/3/2 


013520 


013770 
013776 
014004 


014012 


014032 


DU POR TST 1 
PORT ‘A* RELEASE INTERFERENCE TEST 


000137 
113760 


113760 
013737 
012760 


005037 
016037 
012737 
060037 


113760 
013737 
012760 


014530 


001124 


001224 
001224 
000013 


040000 
001250 
014530 


000013 


001254 
111700 
000012 
001122 
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000010 


001166 
001164 


001164 
001164 


000010 
001240 
000000 


001126 


001122 


001126 


001126 
001122 
001126 


000000 


000010 


66$: 


64$: 


65$: 
s;TRY TO 


i VERIFY 


67$: 


JMP 


1$ 


PORTE RM /RMCS2(RO) 
RMDS (RO) sappar 
#OM'PIP, $BDDA 


; CLEAR 
WMOL | PGM' DPR ‘DRY! WV, SGDDAT 
wn GOOD DAT 


SGDDAT , STMP1 
$TMP 


SGDDAT , STMPO 
65$ 


rey 
PORT 
"SEE IF 


;BYPASS REST OF THE SUBTEST 


PORT B 


ADDRESS TO LOCATION FOR TYPEOUT 


SEIZING PORT SEES al STATUS 
DONT CARE BITS 
a aa 1h tae STATUS 


OMPLEMENT. THE Saha STATUS 


;SAVE THE ACTUAL STAT 
ED 


AR UNWANT 


tLe BIT Ss 
SARE THE 7 tae’ STATUS BITS SET ? 
:BR IF THEY ARE 


A RELEASE COMMAND THROUGH PORT A 


PORTA,RMCS2(RO) 
PORTA,PT : 
#13,RMCS1(RO) 


; SELECT 


PORT A 


ADDRESS TO LOCATION FOR TYPEQUT 


VE PORT 
; ISSUE A RELEASE COMMAND THROUGH PORT A 


THAT THE DRIVE IS STILL SEIZED BY PORT B 
THE *CHECK ERROR’ INDICATOR 


CKERR ; 
RMDS (RO) , SBDDAT 
#RMDS , SBDAD 


> CLEAR 
;GET CONTENTS OF RMDS 


;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 


RO, SBDA ADR 
$GDDAT 
SGDDAT , SBDDAT 
10. 


CKERR 
RMCS1 (RO) -$BDDAT™ 
#RMCS1, $BDADR 


RO, SBDADR 
HACPE , SBDDAT 
‘7 

ATRE ,RMCS1(RO) 


CKERR 
+6 
1$ 


sRELEASE THE DRIVE FROM PORT B 


AL & eyo aed 
ns. TRACS1 (ROD 


RELERR 


sCL 
#ATA!MOL !PGM!DPR'DRY! VV, $GDDAT 
;REGISTER ADDRESS INCREMENT 


#RMDS , $BDADR 
RO, $ADADR 


;WHAT REGISTER -'s BE 
+S i OK ? 


;SET THE REGISTER COMPARE ta, INDICATOR 


;GET THE CONTENTS OF RHCS 


;FORM ADDRESS OF REGISTER 
RESS BASE 


s;CLEAR *MCPE’ 


:WAS RMDS NON ZERO ? 
:CONTENTS OF RMDS SEEN BY PORT A 
:DRIVE IN NEUTRAL, BYPASS REST OF TEST 


;SELECT PORT B 
VE PORT ADDRESS TO LOCATION FOR TYPEQUT 
; ISSUE RELEASE THROUGH PORT B 


:VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


EAR “RELEASE ERROR" INDICATOR 


; COMPARISON CONSTANT 


sREGISTER BASE ADDRESS FOR TYPEQUT 


——. 
— ee a — - 
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"A" RELEASE S NTERFERENICE rEST SEQ 0062 

014036 113760 001224 000010 MOVB _—s PORTA, RMCS2 (RO) ‘SELECT PORT A 
014044 013737 0601224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014052 016037 000012 001164 MOV RMDS(RO),$TMPO ;READ STATUS REGISTER FROM PORT A 
014060 113760 001226 000010 MOVB  PORTB,RMCS2(RO) °:SELECT PORT B 
014066 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014074 016037 000012 001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT B 
614102 001404 BEQ 68$ :BR IF STATUS FROM PORT B ZERO 
014104 005737 001164 TST $TMPO 71S STATUS FROM PORT A ZERO ? 
014110 001401 BEQ 68$ “BR IF ZERO 
014112 104031 EMT 31 
014114 013737 001164 001126 68%: MOV $TMPO,SBDDAT ; CHECK STATUS"FROM PORT A 
014122 013737 001224 001240 MOV PORTA, PTNBR =CHANGE PORT ADDRESS FOR TYPEOUT 
014130 023737 001124 001126 CMP $GDDAT,$BDDAT :COMPARE WITH CONSTANT 
014136 001401 BEQ 69$ “BR IF OK 
014140 104027 EMT 27 
014142 000240 69$: NOP 

:RELEASE THE DRIVE FROM PORT A 
614144 113760 001224 000010 MOVB PORTA. RMCS2(RO) ;:SELECT PORT A 
014152 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
014160 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
014166 005037 001254 : CLR RELERR ;CLEAR THE "RELEASE ERROR * INDICATOR 
014172 012737 000012 001122 MOV #RMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
014200 060037 001122 ADD RO, SBDAD :ADD THE I/O BASE ADDRESS 
014204 012737 011700 001124 MOV #MOL ! PGMIDPR!DRYIVy SGDDAT 3 COMPARISON CONSTANT 
014212 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
014220 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
014226 042737 024001 001170 BIC #PIP!WRL'OM, $TMP2 :CLEAR DONT CARES 
014234 013737 001170 001164 MOV $TMP2,.STMPO :COPY IT INTO "$TMPO’ 
014242 042737 100100 001164 BIC WATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
014250 113760 001226 000010 MOVB #PORTB.RMCS2(RO) :SELECT PORT 
014256 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
014264 042737 024001 001172 BIC #PIP!WRL'OM, $TMP3 DONT CARES 
014272 013737 001172 001166 MOV STMP3,$ :COPY IT INTO '$TMP1' 
014300 042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 

4306 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

014314 001006 BNE 70$ “BR IF NOT 
014316 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
014322 001045 BNE 72$ *BR IF NOT 
014324 104046 EMT 46 
014326 000137 014526 JMP 74$ :BYPASS THE REST OF THE CHECKS 
014332 013737 001170 001126 70$: MOV STMP2.$BDDAT § :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
014340 013737 001226 001240 MOV PORTB.PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
014346 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
014354 005737 001164 TST $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
014360 001414 BEQ 71$ F ZERO 
014362 013737 001224 001240 MOV PORTA, PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
014370 013737 001172 001126 MOV STMP3,$BDDAT  :*BAD DATA’ FOR ERROR TYPE OUT 
014376 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
014404 005737 001166 TST $TMP1 “SEE IF STATUS "EQ ZERO FROM PORT B. 
014410 001012 BNE 72$ “BR IF NOT 
014412 012737 177777 001254 71%: MOY #-1,RELERR “SET ‘RELEASE ERROR' INDICATOR 


014420 012760 000011 000000 MOV #11,RMCS1(RO) CLEAR THE DRIVE 





SS A 
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C2R 
T10 PORT *A* RELEASE INTERFERENCE TEST SEQ 0062 
014426 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
014434 104026 EMT 26 
914436 013737 001170 001126 72$: MOV $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
1 014444 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT NUMBER 
| 014452 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 
| 014460 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS Ok ? 
| 014466 001401 BEQ 73$ “BR IF OK FROM PORT A. . 
| 014470 104007 EMT 7 
014472 013737 001172 001126 73$: MOV $T™MP3.$BDDAT — ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
| 014500 013737 001226 001240 MOV POXTB.PTNBR ; CHANGE PORT NUMBER 
| 614506 042737 100000 001126 BIC. —s ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
| 014514 023737 001124 001126. \-* > CMP SODDAT, SBDDAT : SEE IF READ OK FROM PORT B. 
014522 001401 BEQ “BR IF OK 
| 014524 104007 - | EMT ys 
| 014526 000240 - 74%: NOP 
014530 000004 1$: SCOPE :LOOP ? 
328 
347 ; . 
348 SLUR EEE REE EEEERKEEREREREREE EERE 
' PeTEST 11 PORT 'B' RELEASE INTERFERENCE TEST 
: VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
3 IS SEIZED BY THE OTHER PORT. 
& 
| :* A. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
, :* B. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. 
-* 
:* C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT °A’. 
7* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE SWITCHED 
ie TO PORT 'B'. 7 
7 £, RELEASE THE’ DRIVE ‘THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
:* O NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
-* 
» Po eadllgsrts Ale leephdbgitlt “cond tamsinenacesacsoom 
014532 1ST11: 
014532 005737 001300 TST KYBCTL ; PERFORMING ONLY SINGLE TEST ? 
014536 001406 BEQ 2$ F NOT 
014540 100002 BPL 1$ ; BR IF JUST ENTERED TEST 
014542 000137 003074 JMP EXEC : -RETURN & GET NEXT TEST NUMBER 
014546 012737 177777 001300 1$: MOV #-1,KYBCTL . :SET SINGLE TEST INDICATOR 
014554 012737 014570 001106 2$: MOV #TEST11,$LPADR :SETUP SCOPE LOOP ADDRESS 
014562 012737 014570 001110 hanede MOV #TEST11,$LPERR SETUP ERROR LOOP ADDRESS 
014570 112737 000011 001102 ' MOVB  #11,$TSTNM :MOVE #11 TO TEST NUMBER 
014576 012706 001100 : MOV #STACK, SP =LOAD THE STACK POINTER 
a 014602 012737 000012 001176 MOV #10. .$TIMES =:DO 10. ITERATIONS 
350 | 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
014610 113760 001224 000010 MOVB:  PORTA,RMCS2(RO) :SELECT PORT @#A 
014616 .005060 000012 CLR RMDS (RO) “SEIZE THE DRIVE 
014622 012760 000011 000000 MOV #11,RMCS1(RO)  :ISSUE DRIVE CLEAR 
014630 012760 000013 000000 MOV = #13,RMCS1(RO) RELEASE THE DRIVE 


— RY 
~~ 


ci = 


—_— 


—— 


113760 
005060 
012760 
012760 


113760 
aR EL 


104004 
000137 


013737 


113760 
013737 
012760 


016037 
012737 
060037 
032737 
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001224 
0000 
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POR! *B* RELEASE INTERFERENCE TEST 


000010 


000000 
000000 


000010 
001242 


000010 
001240 
000000 


001126 


001122 


001126 


001126 
001122 


001126 





64$: 


65$: 
s;TRY TO 


: VERIFY 


66$: 


PORTB,RMCS2(RO) ;SELECT PORT #8 

RMDS (RO) sSEIZE THE DRIVE THROUGH PORT ‘B' 
#11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

#13,RMCS1(RO) RELEASE THE DRIVE 


:SEI1ZE-THE DRIVE THROUGH PORT A 


PORTA,RMCS2(RO) ;SELECT PORT A 


PORTA,SEIZPT ;STORE SEIZING PORT’ S ADDRESS 
RMDS (RO) RMDS 


: WRITE 
PORTB,RMCS2(RO) °;:SELECT PORT B 
PORTB, PTNBR ~ PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTB,OPPRT ITE’ PORT ADDRESS 
RMDS (RO) , ,SBDDA i SEE IF DRIVE SEIZED BY PORT A 
RO,$BDA RH/RM BASE ADDRESS 


ARMDS , _SBDADR 'GENERATE BAD REGISTER ADDRESS 
SGDDAT :REGISTER SHOULD BE ZERO 
SGDDAT,SBDDAT 1S THE REGISTER ZERO 

64s :BR IF IT IS 

1$ _ sBYPASS REST OF THE SUBTEST 


PORTA,RMCS2(RO) ;SELECT PORT 


TA,PTNBR ;MOVE PORT ADDRESS TO: LOCATION FOR TYPEOUT 
RMDS (RO) SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP, $BDDA AR DONT CARE BITS 


;CLE 
'PGM'DPR! DRY! WV, SGDDAT sey STATUS 
SGDDAT ,STMP1 + USE GOOD DATA AS A MASK 
STMP1 : COMPLEMENT THE he STATUS 


SBDDAT , STMPO ; SAVE THE ACTUAL STA 
STMP1 ,STMPO ;CLEAR UNWANTED BI is 
SGDDAT , STMPO 


;ARE THE EXPECTED STATUS BITS SET ? 
:BR IF THEY ARE 


A RELEASE COMMAND THROUGH PORT B 


PORTB, maces OC? ;SELECT PORT B 
PORTB,PTNBR VE PORT: ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCS1(RO) ; ISSUE A RELEASE COMMAND THROUGH PORT B 


THAT THE DRIVE IS STILL SEIZED BY PORT-A 





CKERR sCLEAR THE ‘CHECK ERROR" INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

#RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
Th + aaa ;ADD_RH/RM BASE ADDRESS 


$GDDA sWHAT REGISTER ce BE 

SGDDAT,SBDDAT ;IS THE REGISTER OK ? 

- :BR IF OK 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
RMCS1(RO), SBDDAT ;GET THE CONTENTS OF RHCS1 
WRMCS1,$BDADR  ;FORM ADDRESS OF REGISTER 

RO, $BDADR : ADDRESS BASE 

#MCPE , SBDDAT IS “ACPE" SET ? 


SEQ 0064 


teens cence - 


015250 


015256 


015410 
015416 
C15424 


015432 
015436 
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040000 
001250 
015774 


001224 
001224 
000013 
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PORT ‘B' RELEASE INTERFERENCE TEST 


000000 


88 


8883s 
a as 
—NMO—MW 
AOoofroo Ns 


;VERIFY 


68$: 


69$: 
7RELEASE THE DRIVE FROM PORT B 


; VERIFY 


MOVB 
MOV 
MOV 


te :BR IF NOT 
MTRE,RMCS1(RO) ;CLEAR ‘MCPE’ 
CKERR ;WAS RMDS NON ZERO ? 
+6 ;CONTENTS OF RMDS SEEN BY PORT B 
i$ :DRIVE IN NEUTRAL, BYPASS REST OF TEST 


sRELEASE THE DRIVE FROM PORT A 


PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION —_. TYPEOUT 
#13,RMCS1(RO)  ; ISSUE RELEASE THROUGH PORT 


THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 


RELERR ;CLEAR ‘RELEASE ERROR’ INDICATOR 
#ATA!MOL!PGM!DPR!DRY!VV,S$GDDAT ; COMPARISON CONSTANT 


#RMDS,$BDADR ;:REGISTER ADDRESS INCREMENT 
RO, $B8DADR :REGISTER BASE ADDRESS FOR TYPEQUT 
PORTB, RMCS2(RO) — ; SELECT PORT B 

PT MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

RMDS (RO) MeTmeO :READ STATUS REGISTER FROM PORT B 
PORTA, RMCS2(RO) °:SELECT PORT A 
PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT 
68$ :BR IF STATUS FROM PORT A ZERO 
$TMPO :1S STATUS FROM PORT B ZERO ? 
68s :BR IF ZERO 
STMPO,SBDDAT §: CHECK STATUS FROM PORT B 
PORTB,PTNBR :CHANGE PORT ADDRESS FOR TYPEOUT 
SGDDAT . SBDDAT : COMPARE WI TH CONSTANT 


27 


:SELECT PORT B 
PORT ADDRESS TO LOCATION _ TYPEOUT 


PORTB, po i a 
; ISSUE RELEASE THROUGH PORT 


PORTB ,PTNBR 
#13,RMCS1 (RO) 


THAT THE DRIVE IS STILL IN NEUTRAL 





RELERR CLEAR THE "RELEASE ERROR ' INDICATOR 
#RMDS , $BD FORM THE ADDRESS OF RMDS FOR TYPEOQUT 
RO, $BDADR HE 1/0 BASE ADDRESS 


:ADD_TH 
#MOL!PGM!DPR!DRY!VV,$GDDAT ; COMPARISON CONSTANT 


PORTA,RMCS2(RO) ;SELECT PORT A. 
RMDS (RO), 2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!OM, sCLEAR DONT CARES 
STMP2 , STMPO :COPY IT INTO ° . 
MATA! VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB,RMCS2(RO) :SELECT PORT B. 

0), ;GET THE DRIVE STATUS REGISTER FROM PORT B. 


#PIP!WRL ‘OM, $TMPS :CLEAR DONT CARES 
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111 PORT *B’ RELEASE INTERFERENCE TEST SEQ 0066 
015536 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO ‘$TMP1' 
015544 oy tet 100100 001166 BIC #ATA!VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
015552 025737 001164 001166 CMP $TMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
015560 001006 BNE 70$ :BR IF NOT 
015562 005737 001164 TST STMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
015566 001045 BNE 72$ ;BR IF NOT 
015570 104046 EMT 46 
015572 000137 015772 JMP 74$ sBYPASS THE REST OF THE CHECKS 
015576 013737 001170 001126 70$:. MOV STMP2 , SBDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
5 013737 001226 091240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
015612 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 
015620 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
015624 001414 . BEQ 71$ :BR IF ZERO 
015626 013737 001224 001240 MOV PORTA ,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
015634 013737 001172 001126 MOV $TMP3, SBDDAT ; "BAD DATA’ St ERROR TYPE OUT 
015642 “113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
015650 005737 001166 | TST STMP1 SEE IF STATUS. EQ ZERO FROM PORT B. 
015654 001012 BNE 72$ NOT 


*BR IF 

001254 71%: MOV #~1,RELERR :SET "RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) CLEAR THE DRIVE 
012760 000000 MOV #13. /RMCS1(RO)  :RELEASE THE DRIVE 

015702 013737 001170 001126 72$: MOV STMP2,SBDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ. 
001240 PORTA. PTNBR 7C PORT NUMBER 
001126 BIC #ATA, $BDDAT “DON'T CHECK THE ATIN BIT 

1126 CMP SGDDAT,$BDDAT ALL BITS OK ? 


00 
015732 001401 BEQ 73$ “BR IF OK FROM PORT A 
015734 10400 EMT 7 
015736 013737 001172 001126 73$: MOV STMP3,S$BDDAT ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
015744 013737 001226 001240 MOV ; CHANGE PORT NUMBER 
015752 042737 1 001126 BIC #ATA, $BDDAT =DON'T CHECK THE ATTN BIT 
015760 023737 .001124 001126 CMP SGDDAT,S$BDDAT :SEE IF READ OK FROM PORT B. 
015766 001401 BEO 74$ ‘BR IF OK 
015770 104007 EMT 7 
015772 000240 74%: NOP 
015774 000004 1$: SCOPE :LOOP ? 
334 
372 SAAR AAA EERE RRERAEEEEEEREREREEREEEREEKEEREKERREREEEEERREEE 
TEST 12 PORT 'A’ RELEASE W/ERRORS TEST 
:2VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
: BITS ARE SET IN THE DRIVE. 
e 
:* A. SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING 0°S INTO RMDS. 
“* 
;* 8. WRITE 1'S INTO RMER1 THROUGH PORT ‘A’. 
-* 
:* (C. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE +60" 
* BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. 
:* THAT RMER1 HAS NOT BEEN CLEARED. 
‘* 
:* D. CLEAR RMER1 BY ISSUING A DRIVE CLEAF. COMMAND THROUGH PORT ‘A’. 
*# 
:* E. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
8 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 





nm ee ee ft 


| 
| 


CZ7RMRBO meas’ ta¢ DU POR TST 
"A" RELEASE W/ERRORS TEST 


T12 


373 
407 


016122 


016130 


016150 


016156 
¢) 


113760 
013737 
005060 
013737 


000 
012760 
113760 


001300 


003074 
177777 
016034 
016034 


000012 
001100 
000012 


0000 
001250 
000000 


001250 
016350 
000040 
001224 
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001300 
001106 
001110 
001102 


001176 


000010 
000000 
000000 
000010 
000000 
000000 
000010 
001242 
001244 
000014 
000000 
001126 


001122 
24 


Sss Ssss 
ed ceed eed — — —) — 
—s — a —) rs 
NN™N Eee 


Pe HHS 


000010 
000010 


nt itt thee PRR PPP R RRR REESE LESESALELLAEASSE & 


TST12: 


1$: 
2$: 


TESTI2: 


KYBCTL sPERFORMING ONLY SINGLE TEST ? 
2$ :BR IF NOT 

1$ ;BR_IF JUST gl og TEST 

EXEC sRETURN & GET NEXT TEST NUMBER 
4-1 ,K¥BCTL ;SET SINGLE TEST INDICATOR 


WIESTI2, $LPADR ;SETUP SC 
ATEST12,$LPERR 


#12,$TSTNM 
ASTACK ,SP 
#10. ,STIMES 


we 


OPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 


sMOVE #12 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;:D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


PORTA, RMCS2(RO) SELECT PORT #A 

RMDS (RO) ;SEIZE THE DRIVE 

#11,RMCS1(RO) ISSUE DRIVE CLEAR 

#13,RMCS1(RO) : RELEASE THE DRIVE 

PORTB ,RMCS2(RO) + SELECT PORT #6 

RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT ‘B’ 
#11,RMCS1(RO) ISSUE DRIVE CLEAR 


#13,RMCS1(RO) RELEASE THE DRIVE 


sSEIZE THE DRIVE THROUGH PORT A 


66$: 





PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
RMDS (RO) WRITE S 

PORTB ,OPPRT : *OPPOSITE’ PORT ADDRESS 


#~1,RMER1(RO) ;SET ERROR BITS 

#13,RMCS1(RO) ; ISSUE A RELEASE COMMAND 

CKERR >CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMCS1(RO), SBDDAT ;GET CONTENTS OF RMCS1 


#RMCS1,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR "ADD RH/RM BASE ADDRESS 

#4012,  SCDDAT :WHAT REGISTER SHOULD BE 

SBDDAT.$TMPO ° ;MOVE REGISTER CONTENTS TO ‘$TMPO' 

er c01D $TMPO : SAVE SPECIFIED BITS 

SGDDAT . $TMPO COMPARE THE BITS 

66$ “BR IF OK 

SBDDAT.STMP4 =: COPY "BAD DATA’ : : 
#4012,$TMP4 ;CLEAR THE MASKED BITS 

SINPS, "$GDDAT =: "OR" WITH GOOD DATA FOR TYPEOUT 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR :DID 'GO' BIT RESET ? 

-*+6 3 IF NOT 

i$ *"GO' BIT RESET 

#CLR,RMCS2(RO) :INIT THE RH/RM 


PORTA,RMCS2(RO) ;SELECT PORT A 


SEQ 0067 


ee RMOS/3/2 DU POR TST 
PORT °A* RELEASE a/ ERRORS TEST 


PORTA,PTNBR ; 
Sh EST CRO) 
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MOVE PORT ADDRESS 10 LOCATION FOR rome 
sRELEASE THE DRIVE THROUGH PORT 
;BYPASS THE REST OF THE TEST 


THAT DRIVE IS STILL SEIZED BY PORT A 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB.PTNBR : MOVE PORT ADDRESS TO LOCATION FOR 1 bYPEOUT 

CKERR LEAR THE ‘CHECK ERROR’ INDICAT 

RMDS (RO). SBDDAT “GET CONTENTS OF RMDS 

#RMDS , SBDADR ‘robe REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 


RO, $BDADR 

SGDDAT “WHAT REGISTER SHOULD 

SGDDAT , SBDDAT 71S THE REGISTER OK ? 

9 :BR IF OK 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
PORTA,RMCS2(RO) ;SELECT PORT 

PORTA,PT ° 


:MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
RMER1(RO),SBDDAT ;GET CONTENTS OF RMER1 

#RMER1.$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
:ADD RH/RM BASE ADDRESS 


RO, SBDADR 
#177777,$GDDAT :WHAT REGISTER SHOULD BE 

SGDDAT,$8DDAT :1S THE REGISTER Ok ? 

10 ;BR IF OK | 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


:CLEAR THE ERRORS THROUGH PORT A 


#11,RMCS1(RO)  ;ISSUE A DRIVE CLEAR 


sRELEASE THE DRIVE FROM PORT A 


PORTA, eae ee ;SELECT PORT A 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCSI(ROY ISSUE RELEASE THROUGH PORT A 


THAT THE DRIVE IS STILL IN NEUTRAL 


016330 013737 001224 001240 MOV 
016336 012760 000013 000000 MOV 
016344 000137 017114 JMP 
; VERIFY 
016350 1$: 
016350 113760 001226 000010 
016356 013737 001226 001240 MOV 
6364 005037 001250 CLR 
016370 016037 000012 001126 MOV 
016376 012737 000012 001122 MOV 
16404 37 001122 ADD 
016410 5037 001124 CLR 
016414 023737 001124 001126 CMP 
016422 001403 BEQ 
016424 104024 EMT 
016426 005137 001250 COM 
016432 000240 68$: NOP 
C16434 113760 001224 000010 MOVB 
016442 013737 001224 001240 MOV 
016450 005037 001250 CLR 
016454 016037 14 001126 MOV 
016462 012737 14 001122 MOV 
016470 060037 001122 ADD 
016474 012737 177777 001124 . MOV 
016502 023737 001124 001126 CMP 
016510 001403 | BEQ 
016512 104010 EMT 
016514 005137 001250 COM 
016520 000240 70$: NOP 
016522 012760 000011 000000 MOV 
016530 3760 001224 000010 MOVB 
016536 013737 001224 001240 MOV 
016544 012760 13 000000 MOV 
s VERIFY 
016552 005037 001254 CLR 
6556 012737 12 001122 MOV 
016564 37 001122 ADD 
6570 012737 011700 001124. MOV 
016576 113760 001224 000010 MOVB 
016604 016037 12 001170 MOV 
016612 2737 024001 001170 BIC 
016620 013737 001170 001164 MOV 
016626 042737 1001 001164 BIC 
016634 113760 001226 000010 MO 
16642 016037 12 001172 MOV 
016650 042737 024001 001172 BIC 
16656 013737 001172 001166 MOV 


RELERR ZCLEAR THE "RELEASE ERROR ° INDICATOR 
MDS,$BDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOQUT 
RO, SBDADR :ADD THE 1/0 BASE ADDRESS 
#4OL 'PGM'DPR! DRY! VV, $GDDAT : COMPARISON CONSTANT 
PORTA RMCS2 (RO) SELECT PORT 
S(RO).$ STM? “GET THE DRIVE” STATUS R REGISTER FROM PORT A. 


OPIP: WRL 'OM, :CLEAR 
TMP? , $T :COPY IT INTO ° ' 

HATA'VV,$ “CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS,RMCS2(RO) :SELECT PORT B. 

RMDS (RO), “GET THE DRIVE STATUS REGISTER FROM PORT 8. 
#PIP'WRL'OM, $TMP :CLEAR DONT CARES 

$TMP3$TMP1 pcoby IT INTO *S$TMP1" 


SEQ 0066 


a _ 


rc 
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PORT *A’ RELEASE W/ERRORS TEST SEQ 0069 
016664 042737 100100 001166 BIC #ATA'VV,SIMP1  ;:CLEAR PORT DEPENDENT BITS FROM THE COPY 
016672 023737 001164 001166 CMP $TMPO,$TMP1 [1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
016700 001006 BNE 72$ ;BR_1F NOT 
016702 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
016706 00104 BNE 74$ :BR IF NOT 
016710 104046 EMT 6 
016712 000137 017112 JMP 76$ :BYPASS THE REST OF THE CHECKS 
016716 013737 001170 001126 72%: MOV $TMP2,$BDDAT § SET UP POSSIBLE BAD DATA FOR ERROR MESSAGF 
016724 013737 001226 001240 MOV PORTB.PT :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
016732 113760 001226 000010 MO PORTB.RMCS2(RO) :SELECT PORT B. 
016740 005737 001164 TST :SEE IF STATUS EQ 0 FROM PORT A. 
016744 0014 BEQ 73$ “BR IF ZERO 
016746 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
016754 013737 001172 001126 MOV $TMP3.$BDDA : "BAD DATA’ FOR ERROR TYPE OUT 
016762 113760 001224 000010 MOVB _—sC—wPORTA.,” *RACSOCRO) “SELECT PORT A 
016770 005737 001166 TST $TMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
016774 001012 BNE 74$ ‘BR IF NOT 
016776 012737 177777 001254 73$: MOV #-1,RELERR 7SET "RELEASE ERROR’ INDICATOR 
017004 012760 000011 000000 “MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
617012 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
017020 104026 EMT 26 
017022 013737 (001170 001126 74$: MoV $TMP2,SBDDAT LOOK FOR BIT FAILURES WHEN RMDS READ 
017030 013737 001224 001240 MOV PORTA.PTNBR =C PORT NUMBER 
017036 042737 100000 001126 BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
017044 023737 001124 001126 CMP SGDDAT,$BDDAT <ALL BITS OK ? 
017052 001401. BEQ 75% :BR IF OK FROM PORT A. 
017054 104007 EMT 7 
017056 013737 001172 001126 75$: MOV STMP3,SBDDAT §; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
017064 013737 001226 001240 MOV PORTB.PTNBR : CHANGE PORT NUMBER 
017072 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 
017100 623737 001124 001126 CMP SGDDAT,SBDDAT :SEE IF READ OK FROM PORT B. 
017106 001401 BEOQ 76$ “BR IF OK 
017110 104007 EMT 7 
017112 000240 76$: NOP 
017114 000004 2$: SCOPE :LOOP ? 
4 
429 FTAA AAA AEAAEAEEEEAEAAEKAEEEAREEARRERAEEEREREREERREREEREEEE 
; #TEST 13 PORT '"B' RELEASE W/ERRORS TEST 


:*VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
B. ~WRITE 1°S INTO RMER1 THROUGH PORT 'B'. 
C. ISSUE A RELEASE COMMAND THROUGH PORT 'B". VERIFY THAT THE ‘GO’ 
BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
_ THAT RMER1 HAS NOT BEEN CLEARED. 
D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B'. 


E. ISSUE A RELEASE COMMAND THROUGH PORT ‘B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SéeT. 


REREEAREREAERERAERAARAEAAEAAKEAAERAAEAEAERARAREEAEREEARKREREERARRERRE 


* Se Be Ba Be Be Bs Be Se Pe Be Se Be Be yo 


‘spe eee Ree Rae 


MRBO RMO5/3/2 DU POR TST 1 
PORT *B" RELEASE W/ERRORS TEST 


430 
431 


017116 


017242 


017250 


017270 


017276 


017450 


00 

012760 
012760 
113760 
005060 
012760 
012760 


113760 
013737 


00 
013737 


013737 


001300 


0000 
001250 
000000 


001250 
017470 
000040 
001226 
001226 
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001300 
001106 
001110 
001102 


001176 


000010 
001242 
001244 


000014 
000000 


001126 
001122 


001124 


001174 
001174 
001124 


000010 
000010 
001240 


TST13: 


1$: 
2$: 


TEST13: 


SEQ 0070 
KYBCTL * wh ONLY SINGLE TEST ? 
2$ ;BR IF NOT 
7BR IF JUST ping TEST 

as ;RETURN & GET NEXT TEST NUMBER 

#~1 KYB SET SINGLE TEST INDICATOR 
WTESTI 3. SLPADR SETUP SCOPE LOOP ADDRESS 
ATESTIS,$LPERR ;SETUP ERROR LOOP ADDRESS 
#13,$TSTNM sMOVE #13 TO TEST NUMBER 
#STACK ,SP ;LOAD THE STACK POINTER 
#10. .STIMES ::D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


‘#11,RMCS1 (RO) 


PORTA,RMCS2(RO) SELECT PORT #A 
RMDS (RO) sSEIZE THE DRIVE 
#11,RMCS1(RO) ISSUE DRIVE CLEAR 
#13,RMCS1(RO) 


*RELEASE THE DRIVE 
PORTB,RMCS2(RO) :SELECT PORT #B 

RMDS (RO) :SEIZE THE DRIVE THROUGH PORT ‘B° 
TISSUE DRIVE CLEAR 


#13,RMCS1(RO) RELEASE THE DRIVE 


SEIZE THE DRIVE THROUGH PORT B 


66$: 


;SELECT PORT 


PORTB,.RMC352(RO) B 
PORTB.SEIZPT ;STORE SEIZING PORT’S ADDRESS 
RMDS (RO) ; 


S ITE 
TA,OPPRT ~ ;*OPPOSITE’ PORT ADDRESS 


#-1,RMER1(RO) ;SET ERROR BITS 
#13,RMCS1(RO) 3ISSUE A RELEASE COMMAND 
ERR THE “CHECK ERROR’ INDICATOR 


CK :CLEAR T 
RMCS1(RO), SBDDAT :GET CONTENTS OF RMCS1 
neg $BD ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


0, $BDADR "ADD RH/RM BASE ADDRESS 
wba, SCDDAT :WHAT REGISTER SHOULD BE | 
SBDDAT,$TMPO © :MOVE REGISTER CONTENTS TO "STMPO" 
panies STMPO :SAVE SPECIFIED BITS 
SGDDAT,STMPO "COMPARE THE BITS 

“BR IF OK 
SBDDAT,$TMP4 = : COPY "BAD DATA' 
#4012, $TMP4 =CLEAR THE MASKED BITS 
STMP4, SGDDAT =*OR' WITH GOOD DATA FOR TYPEOUT 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR ;DID 'GO' BIT RESET ? 
ca IF NOT 


1$ :'GO' BIT RESET 
#CLR,RMCS2(RO) INIT THE RH/RM 

PORTB,RMCS2(RO) :SELECT PORT B 

PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 


C 
T 


Z 
1 


R 
3 


017456 
017464 


017470 


017642 


017650 
017656 
017664 


017672 
017676 


012760 
000137 


113760 


012760 


113760 
013737 
012760 


005037 
012737 
0600 


042737 


MRBO RMO5/3/2 DU POR TST 


000013 
020234 


100100 
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PORT "B® RELEASE ERRORS TEST 


000000 


900010 
001240 


001126 
001122 


001126 


000010 
001240 


001126 
001122 


001124 
007126 


000000 


000010 
001240 
000000 


001166 


; VERIFY 
1$: 


68$: 


708: 


:CLEAR THE ERRORS THROUGH PORT B 


; VERIFY 


MOV 
JMP 


sRELEASE THE DRIVE THROUGH PORT 6 


#13,RMCS1(RO) 
2$ ;BYPASS THE REST OF THE TES! 


THAT DRIVE 3 STILL SEIZED BY PORT B 


MOV 


MOVB 
MOV 
MOV 


PORTA, athe oh ;SELECT PORT A 


PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 

RMDS(RO),$BDDAT "GET CONTENTS OF RMDS 

#RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO, SBDADR :ADD RH/RM BASE ADDRESS 

$GDDA “WHAT REGISTER SHOULD BE 

SeDDAT. SBDDAT :IS THE REGISTER Ok ? 

68S :BR IF OK 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR LEAR THE 'CHECK ERROR’ INDICATOR 

RMER1(RO),SBDDAT ;:GET CONTENTS OF RMER1 

#RMER) ,SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
SBDADR :ADD RH/RM BASE ADDRESS 

WP PT 77 SGDDAT :WHAT REGISTER SHOULD BE 

SGDDAT,$B8DDAT :JS THE REGISTER OK ? 

5 og :BR IF OK 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


#11,RMCS1(RO) ;ISSUE A DRIVE CLEAR 


sRELEASE THE DRIVE FROM PORT B 


PORTB,RMCS2(RO) ;SELECT PORT B 
PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
—#13,RMCS1(RO)° ; ISSUE RELEASE THROUGH PORT B 


THAT THE DRIVE IS STILL IN NEUTRAL 


EY Sassi anton snes 


RELERR ;CLEAR THE "RELEASE ERROR " INDICATOR 

#RMDS , _ ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

RO, SBDAD :ADD THE 1/0 BASE ADDRESS 

#MOL 'PGM'DPR!DRYIW. SGDDAT ;COMPARISON CONSTANT 
PORTA,RMCS2(RO) :SELECT PORT A. 

RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL! :CLEAR DONT CARES 

STMP2 , STMPO ;COPY IT INTO '$TMPO 


HATA'VV, STMPO 
PORTB,RMCS2(RO) 
RMDS (RO) , $TMP3 
#PIP!WRL ‘OM, $TMP 
$TMP3 ,$TMP1 
HATA'VV,STMP1 


>CLEAR PORT DEPENDENT BITS FROM THE COPY 
“SELECT PORT 8. 
“GET THE DRIVE STATUS REGISTER FROM PORT B. 
3 :CLEAR DONT CARES 

:COPY IT INTO *$TMP1' 

“CLEAR PORT DEPENDENT BITS FROM THE COPY 


a ee eee eee cee ee 


SEQ 0071 


* | tame RMO5/3/2 DU POR ‘ST 1 


PORT "B* RELEASE wW/ERRORS TEST 


020012 
020020 


020236 
020236 


023737 
601006 


005737 


001164 001166 
001164 
020232 
001170 001126 
001240 
000010 


001300 


72$: 


73$: 


74$: 


75$: 


76$: 
2$: 
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$1MPO.STMP' is The STATUS REGISTER THE SAME FROM BOTH PORTS ? 
$TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 

748 “BR IF NOT 

76$ ;BYPASS THE REST OF THE CHECKS 


;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


PORTB.PTNBR * SEIZING pbORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

PORTB.RMCS2(RO) :SELECT PORT 8. 

$TMPO “SEE IF STATUS EQ 0 FROM PORT A. 

73$ :BR IF ZERO 

PORTA, PTNBR | :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

STMP3,$BDDAT  :'BAD DATA’ FOR ERROR TY°E OUT 

PORTA,RMCS2(RO) :SELECT PORT A 

$TMP1 “SEE IF STATUS’ EQ ZERO FROM PORT B. 

ae “BR IF NOT 

#=1, RELERR “SET "RELEASE ERROR’ INDICATOR 

#11,RMCS1(RO)  :CLEAR THE DRIVE 

#13. “RMCS1(RO)  :RELEASE THE DRIVE 

$TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
TA.PTNBR :C PORT NUMBER 

#ATA, $BDDAT *DON'T CHECK THE ATTN BIT 

SGDDAT,$BDDAT “ALL BITS Ok ? 

758 “BR IF OK FROM PORT A. 

STMP3,$BDDAT —§; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

PORTB,PTNBR ;CHANGE PORT NUMBER 

WATA, $B8DDAT =DON'T CHECK THE ATTN BIT 

SGDDAT,$BDDAT  :SEE IF READ OK FROM PORT B. 

76$ “BR IF OK 


:LOOP ? 


FTAA RARER AERAREREEAEAAAEERERRERAERARKEREEKEARKEKREKRHKREKEREE 


: TEST 14 


:*VERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


SEIZE THE DRIVE BY WRITING 0°S INTO. RMDS THROUGH PORT ‘A*. 


Se Bs Be Be Bs 
Wiss «=e eae eeRe eRe ee eRe 
_ 


~—G@P =e Be Be Se Be Be Be Be 


114: 





b 


“1 


Oo 
° 


PORT ‘A’ 


SEIZE AND CLEAR TEST 


.VERIFY THAT THE DRIVE HAS BEEN SEIZED. 


ISSUE A CRIVE CLEAR THROUGH PORT ‘A* AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ISSUE A_MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


RELEASE THE DRIVE THROUGH PORT ‘A‘., 


VERIFY THAT THE DRIVE 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST 


KYBCTL 


a 


SERRATE AEE RHREREATEREKRARAREERAAEREREREERKEREERAEAEEARERARAERREE 


;PERFORMING ONLY SINGLE TEST ? 


ee a ew ek + ee ee ee . 


SEQ 0072 


7 ZRMRBO 
114 


RMO5/3/2 DU FOR TST 1 


PORT ‘A' 


020242 


020516 
020520 


020526 
020534 
020542 
020546 
020554 
020562 


020566 
020572 


SEIZE 
Dee 


013737 


003074 
177777 
020274 
020274 


000014 


0000 
001124 
001124 


021634 
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AND CLEAR TEST 


BEQ 2$ ;BR IF NOT 
;BR IF JUST ENTERED TEST 


JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
001300 1$: MOV #=-1 .KYBCTL iSET SINGLE TEST INDICATOR 
001106 2$: MOV ATESTI4,$LPADR ;SETUP SCOPE LOOP ADDRESS 
001110 sere MOV #TEST14.$LPERR :SETUP ERROR LOOP ADDRESS 
001102 MOVB #14,$TSTNM sMOVE 414 TO TEST NUMBER 
MOV MSTACK,SP ;LOAD -THE STACK POINTER 
001176 MOV #19.,$TIMES 3:D0 10. ITERATIONS 
sSEIZE THE DRIVE THROUGH PORT A | 
000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'’S ADDRESS 
CLR RMDS (RO) ;WRITE RMDS 
006010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001244 MOV PORTB,OPPRT "OPPOSITE’ PORT ADDRESS 
001126 MOV RMDS (RO) , SBDDA SEE IF DRIVE SEIZED BY PORT A 
MOV RO, $BDADR > RH/RM BASE ADDRESS 
001122 ADD #RMDS , SBDADR ;GENERATE BAD REGISTER ADDRESS 
CLR SGDDAT “REGISTER SHOULD BE ZERO 
001126 CMP SGDDAT , SBDDAT :;IS THE REGISTER ZERO 
ee ~~ “BR -~ 2 Ss 
aad JMP 1$ ;BYPASS REST OF THE SUBTEST 
000010 MOVB PORTA, RMCS2(RO) s;SELECT PORT A 
001240 MOV PORTA,PTNBR VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001126 MOV RMDS (RO), SBDDAT sSEE iF SEIZING PORT SEES CORRECT STATUS 
001126 BIC #OM'PIP, $BDDAT AR DONT CARE BITS 
001124 MOV WHOL 'PGA'DPR' DRY! WV, SGDDAT . ee. STATUS 
001166 MOV SGDDAT.STMP1 ;USE GOOD DATA AS A MASK 
| COM STMP1 > COMPLEMENT THE why STATUS 
001164 MOV SBDDAT , STMPO 7SAVE THE ACTUAL STATUS 
001164 BIC STMP1,STMPO ;CLEAR UNWANTED BITS 
001164 CMP SGDDAT, STMPO “ARE THE EXPECTED STATUS BITS SET ? 
BEQ 65$ “BR IF THEY ARE 
EMT 5 
65$: NOP 
;DRIVE CLEAR THROUGH PORT A FIRST | 
é 
000000 MOV #11,RMCS1(RO) 3; ISSUE DRIVE CLEAR THROUGH PORT A 
:VERIFY THAT DRIVE STILL SEIZED BY PORT A 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
CLR CKERR sCLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
001122 MOV ARMDS , SBDADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR + ADD RH/RM BASE ADDRESS 
CLR $SGDDAT WHAT REGISTER SHOULD BE 
001164 : MOV SBDDAT,.$STMPO “ MOVE REGISTER CONTENTS TO ‘STMPOQ‘' 


—— 


oo RMO5/3/2 DU POR TST 1 


PORT ‘A'‘ 


020772 


020774 


SEIZE 


072760 


113760 
013737 


060037 
012737 


AND CLEAR 


100000 
001124 


001126 


100000 
001124 
601126 
077777 
001174 


001250 


011700 


11 
Ts] V04.00 4-APR~81 18:06:25 PAGE 10-34 


TEST 


001164 
001164 


001174 


001124 


000010 


— — —h ad oD 


001124 


66$: 


68$: 


#°C77777,$TMPO ;SAVE SPECIFIED BITS 
$GDDAT. ,$TMPO = : COMPARE THE BITS 


j K 
SBDDAT ,STMP4 ;COPY ‘BAD DATA’ 
#77777 ,STMP4 sCLEAR THE MASKED BITS 
es. $GDDAT ;*OR' WITH GOOD DATA FOR TYPEOUT 


CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT 
CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 

#RMDS , $BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO, $BDADR ADD RH/RM BASE ADDRESS 

wMOL |PGM! DPR! DRY VV. SGDDAT ;WHAT REGISTER SHOULD BE 
$BDDAT,$TMPO _ ;MOVE REGISTER CONTENTS TO °$TMPO’ 
posed STMPO ;:SAVE SPECIFIED BITS 

SGDDAT., .STMPO ; COMPARE THE BITS 


SBDDAT,$TMP4 : COPY ‘BAD DATA 
#77777. STMP4 CLEAR THE MASKED BITS 
SIMPS, ,SGDDAT =: OR" WITH GOOD DATA FOR TYPEOUT 


CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


sNOW ISSUE MASSBUS INIT 


MOV 


ACLR,RMCS2(RO) =; ISSUE MASSBUS INIT 


; CONFIRM THAT DRIVE STILL SEIZED BY PORT A 


70$: 





PORTB ,RMCS2(RO) 
eae PTNBR ;MOVE 


;SELECT PORT B 
PORT ADDRESS TO LOCATION FOR TYPEOUT 


CKE CLEAR THE ‘CHECK ERROR" INDICATOR 
RMDS (RO), SBDDAT :GET CONTENTS OF RMDS 

#RMDS,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR :ADD RH/RM BASE ADDRESS 

SGDDAT :WHAT REGISTER SHOULD BE 
SBDDAT.$TMPO = :MOVE REGISTER CONTENTS TO ‘$TMPO" 
#°C77777,$1MPO :SAVE SPECIFIED BITS 


SGDDAT , STMPO > COMPARE THE BITS 
70$ : F OK 


:BR I 
SBDDAT , STMP4 :COPY “BAD DATA’ 
#77777, STMP4 :CLEAR THE MASKED BITS 
_- ,$GDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 


3 
CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
KERR ;CLEAR THE ‘CHECK ERROR" INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO, $BDADR ;ADD_RH/RM BASE ADDRESS 

#MOL'PGM!DPR!DRY! VV, $GDDAT ;WHAT REGISTER SHOULD BE 


a a ee ee a sl sen —— ——-« _—_ 


SEQ 0074 


—_———.._.. —_ 
te eee 
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021172 013737 001126 001164 MOV SBDDAT,$TMPO — ; MOVE _REGISTER CONTENTS TO "$TMPO' 
021200 042737 100000 001164 BIC #*(77777,$TMPO :SAVE SPECIFIED BIT 
021206 023737 001124 001164 CMP $GDDAT,$TMPO  : COMPARE THE BITS 
021214 001414 BEQ 72$ “BR IF OK 
9021216 01373Z 001126 001174 MOV SBDDAT, $TMP4 “COPY "BAD DATA’ 
021224 042737 077777 001174 BIC #77777 .$TMP4 :CLEAR THE MASKED BITS 
021232 053737 001174 001124 81S $TMP4 , $GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
021240 104034 EMT 34 
021242 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
021246 000240 72$: NOP 
:RELEASE THE DRIVE FROM PORT A 
021250 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
021256 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
021264 012760 000013 000000 MOV #13,.RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

621272 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ‘ INDICATOR 
021276 012737 000012 001122 MOV #RMDS,$BDADR §; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
021304 069037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
021310 012737 011700 001124 MOV #MOL'PGM!DPR'!DRY'VV,$GDDAT ;COMPARISON CONSTANT 
021316 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
021324 016037 000012 001170 MOV RMDS(RO),$TMP2 <GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
021332 042737 024001 001170 BIC #PIP!WRL'OM, STMP2 :CLEAR DONT CARES 
021340 013737 001170 001164 MOV STMP2, $TMPO :COPY IT INTO "$TMPO' 
021346 042737 100100 001164 BIC. HATA'VV,$TMPO  ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
021354 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
021362 016037. 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 8. 
021370 042737 024001 001172 BIC #PIP'WRL'OM,$TMP3 :CLEAR DONT CARES 
021376 013737 001172 001166 MOV STMP3,$TMP1 :COPY IT INTO *$TMP1' 
021404 042737 100100 001166. BIC #ATA!VV,$TMP1 =CLEAR PORT DEPENDENT BITS FROM THE COPY 
021412 023737 001164 001166 CMP STMPO. STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
021420 001006 - BNE 74$ =BR IF NOT 
021422 005737 001164 TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
021426 001045 BNE 76$ “BR IF NOT 
021430 104046 EMT 46 
021432 000137 021632 JMP 78$ ;BYPASS THE REST OF THE CHECKS 

1436 013737 001170 001126 74$: MOV  $TMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
021444 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
021452 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
021460 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A 
021464 001414 | BEQ 75$ :BR IF ZERO 
021466 0613737 001224 001240 MOV PORTA-PTNBR ;$E1ZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
021474 013737 001172 001126 MOV $TMP3,$BDDA :*BAD DATA' FOR ERROR TYPE OUT 
021502 113760 001224 000010 MOVB _—s— PORTA, * RASS (RO) =SELECT PORT 
021510 005737 001166 TST $TMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
021514 001012 BNE 76$ :BR IF NOT 
021516 012737 177777 001254 75$: MOV #~1 RELERR “SET “RELEASE ERROR' INDICATOR 
021524 012760 000011 000000 MOV -#11,RMCS1(RO)  :CLEAR THE DRIVE 
021532 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
021540 104026 7 MT 26 
021542 013737 001170 001126 ‘76$: V $TMP2,$BDDAT  ;:LOOK FOR BIT FAILURES WHEN RMDS READ 
021550 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT NUMBER 
021556 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 
021564 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 





°°. eee -—=- — 


, ah DU POR TST 1 


484 
503 
504 


505 
506 


021572 


021722 


021776 


SEIZE 


012737 


112737 
012706 
012737 


113760 
013737 
005060 


001300 


003074 
177777 
021674 
021674 


000012 
001124 
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AND CLEAR TEST 


001126 


001126 


001110 
001102 
001176 


000010 
001242 


001126 
001122 


773: 


78$: 
1$: 


77$ 
7 


$TMP3,$BDDAT 


$GDDAT, $BDDAT 
78$ 


;BR IF OK FROM PORT A, 


; CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
; CHANGE PORT NUMBER 

:DON'T CHECK THE ATTN BIT 

;SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


tte ee eee eee eRe RRR RRR RRR ERR RRR ERE RR SE SSRSSSLLASASLASSOSLLaA SS 


: TEST 15 


> 


_~) 
« 


——G®e Be Be Be Se 


Ue. Seneeeeeeeeenes 
oO 
e 


T15: 


1$: 
2$: 


TEST15: 


RELEASE THE DRIVE THROUGH PORT 7s 


PORT *B’ SEIZE AND CLEAR TEST 


i sVERIFY THAT A MASSBUS CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 


SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'B’. 
YERIFY THAT THE DRIVE HAS BEEN SEIZED. 


ISSUE A_ DRIVE CLEAR THROUGH PORT 'B’ AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 


ISSUE A MASSBUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE. 
DOES NOT RETURN TO NEUTRAL, 


VERIFY THAT THE DRIVE 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


KYBCTL 
e 


—#TEST15.$LPERR 


#15, $TSTNM 


ASTACK 


SP 


#10. ,STIMES 


sSEIZE THE DRIVE THROUGH PORT B 


PORTB,RMCS2(RO) B 
STORE SEIZING PORT*’S ADDRESS 
;WRITE RMDS 


PORTB, 


RMDS (RO) 
PORTA,RMCS2(RO) 
TA,PTNBR ;MO 


SEIZPT 


PORTA, OPPRT 


RMDS (RO) ,SBDDAT 
DADR 


a" @ 
“ 


SERRE ERE RAE EERE EERRERERE EERE RERREEEEEREEEEE 


oe ae ONLY SINGLE TEST ? 
:BR IF NOT 


BR IF JUST ENTERED TEST 
;RETURN & GET NEXT TEST NUMBER 
sSET SINGLE TEST INDICATOR 
>SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


sMOVE #15 TO TEST NUMBER 
;LOAD THE STACK POINTER 
::D0 10. ITERATIONS 


sSELECT PORT 


sWRIT 
:SELECT PORT A 
V I 


a SS" TU 
- SITE’ PORT ADDRESS 
;SEE_IF DRIVE SEIZED BY PORT B 
:RH/RM BASE ADDRESS 
:GENERATE BAD REGISTER ADDRESS 
;REGISTER SHOULD BE ZERO 


“LOCATTON- F608-4-¥REOU T-—~-.. -- 


SEQ 0076 


—— ee 6 ee ee rere 
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? 
022002 023737 001124 / 001126 CMP SGDDAT,$BDDAT ;1S THE REGISTER ZERO 
| 022010 001403 / BEQ 64$ :BR IF IT IS 
022012 104004 EMT 4 
O2201% 000137 023234 ia JMP 1$ ;BYPASS REST, OF THE SUBTEST 
| s 
022020 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
| 022026 013737 001226 001240 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
| 022034 016037 000012 001126 MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
022042 042737 020001 001126 BIC #OM'!PIP, $BDDAT ;CLEAR DONT CARE BITS 
| 022050 012737 011700 001124 MOV #MOL 'PGM'DPR! DRY! VV, $GDDAT :EXPECTED STATUS 
022056 013737 001124 001166 MOV $GDDAT,$TMP1 ;USE GOOD DATA’A 
| 005137 001166 COM $TMP1 ; COMPLEMENT THE EXPECTED STATUS 
022070 013737 001126 001164 MOV SBDDAT,$TMPO § : SAVE _THE ACTUAL STATUS 
022076 043737 001166 001164 BIC $TMP1,$TMPO :CLEAR UNWANTED BITS 
022104 023737 001124 001164 CMP $GDDAT,$TMPO  : ARE _THE EXPECTED STATUS BITS SET ? 
022112 001401 BEQ 65$ BR IF THEY ARE 
022114 104005 EMT 5 
022116 000240 ‘i . ies 
:DRIVE CLEAR THROUGH PORT B FIRST 
022120 012760 000011 000000 MOV #11,RMCS1(RO)  ;ISSUE DRIVE CLEAR THROUGH PORT B 
:VERIFY THAT DRIVE STILL SEIZED BY PORT B 
022126 113760 001224 000010 MOVB  PORTA.RMCS2(RO) ;SELECT PORT 
022134 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
022142 005037 001250 CLR —Ss- CKERR CLEAR THE "CHECK ERROR’ INDICATOR 
022146 016037 000012 001126 MOV RMDS(RO),$BDDAT ;:GET CONTENTS OF RMDS 
027154 012737 000012 001122 MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
022162 060037 001122 ADD RO, SBDADR :ADD _RH/RM BASE ADDRESS 
022166 005037 001124 CLR SGDDA WHAT REGISTER SHOULD BE 
022172 013737 001126 001164 MOV SBDDAT,STMPO =: MOVE REGISTER CONTENTS TO ‘STMPO’ 
2200 042737 001164 BIC SEDDAT,STMPO :SAVE SPECIFIED BITS 
2206 023737 001124 001164 CMP SGDDAT,$TMPO =: COMPARE THE BITS 
022214 00 BEQ 66$ 7BR IF OK 
022216 013737 001174 MOV SBDDAT.STMP4 =—-«: COPY ~‘"BAD DATA’ 
022224 042737 077777 001174 BIC #77777 SMP ;CLEAR THE MASKED BITS 
022232 053737 001174 001124 BIS $TMP4,$GDDAT  (:'OR* WITH GOOD DATA FOR TYPEOUT 
022240 104033 EMT 33 
022242 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR . 
022246 000240 66$: NOP 
| 022250 113760 001226 000010 MOVB  PORTB.RMCS2(RO) ;:SELECT PORT B 
022256 013737 001226 001240 MOV PORTB,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
022264 005037 001250 | CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
022270 016037 000012 001126 ~— ~~ MOV - ‘RMDSCROY.S$BDDAT :GET CONTENTS OF RMDS 
022276 012737 000012 001122 MOV ARMDS , SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
022304 060037 001122 ADD RO, $BDAD :ADD RH/RM BASE ADDRESS 
022310 012737 011700 001124 MOV MMOL | PGA! DPR!DRYI VY” SGDDAT :WHAT REGISTER SHOULD BE 
022316 013737 001126 001164 MOV SBDDAT,$TMPO  :MOVE REGISTER CONTENTS TO ‘*$TMPO" 
022324 042737 100000 001164 BIC #077797 STMPO :SAVE SPECIFIED BITS 
022332 023737 001124 001164 CMP SGDDAT,$TMPO = : COMPARE ‘THE 
22340 001414 BEQ 68$ :BR IF OK 
342 013737 001126 001174 MOV SBDDAT, STMP4 -COPY ‘BAD DATA’ 
022350 042737 077777 001174 BIC #77777 .$TMPS CLEAR THE MASKED BITS 
022356 053737 001174 001124 


BIS sie. $GDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 


SEQ 007/ 


| 


ee 


eg: 
T 


Z 
: 


RMRBO RMOS/3/2 DU POR TST 1 
5 SEIZE AND CLEAR TEST 


PORT ‘B' 


022366 
022372 


022374 


022402 


022650 
022656 
022664 


022672 
022676 
022704 
022710 
022716 


005137 
000240 


012760 


113760 
013737 
012760 


001250 


001224 
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000010 


000010 
001240 


001126 
001122 


001164 
001164 
001164 


001122 


001124 
000010 


COM 
68$: NOP 


SEQ 0078 


CKERR SET THE REGISTER COMPARE ERROR INDICATOR 


sNOW ISSUE MASSBUS INIT 


MOV 


MCLR,RMCS2(RO) = ;ISSUE MASSBUS INIT 


> CONF IRM THAT DRIVE STILL SEIZED BY PORT B 


70$: 


72$: 


PORTA,RMCS2(RO) ;:SELECT PORT 
PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO) ,$BDDAT °:GET CONTENTS OF RMDS 

#RMDS , $BDADR : FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO, $BDAD /RM BASE ADDRESS 
Oar REGISTER SHOULD BE 

SBDDAT,$TMPO §_ :MOVE REGISTER CONTENTS TO ‘S$TMPO’ 

#°C77777,$TMPO = SAVE SPECIFIED D BITS 

SGDDAT.$TMPO =; COMPARE THE BITS ' 

70$ ;BR IF OK . 

SBDDAT.$TMP4 = : COPY ‘BAD DATA’ 


#77777, $TMP4 ; CLEAR THE MASKED BITS 
lad , $GDDAT ;*OR* WITH GOOD DATA FOR TYPEOUT 


CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB,PT :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

WRMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO, $S8DADR ADD _RH/RM BASE ADDRESS 
#MOL 'PGM!DPR!DRY! VV SGDDAT sWHAT REGISTER SHOULD BE 


SBDDAT ; REGISTER CONTENTS TO "STMPO" 
#°C77777,$1MPO :SAVE SPECIFIED BITS | 
SGDDAT, :COMPARE THE BITS 

ATA’ 


BR IF OK 
SBDDAT , STMP4 :COPY “BAD D 


477777 ,STMP4 ;CLEAR THE MASKED BITS 
 tatacaigmeaaed :*OR* WITH GOOD DATA FOR TYPEOUT 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


sRELEASE THE DRIVE FROM PORT B 


MOVB 
MOV 
MOV 
7 VERIFY 
CLR 


;SELECT PORT B 
PORT ADDRESS TO LOCATION . TYPEOUT 


PORTB,,RMCS2(RO) . 
: ISSUE RELEASE THROUGH PORT 


PORTB,PTNBR ; 
#13,RMCS1(RO) 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR ;CLEAR THE ‘RELEASE ERROR ° INDICATOR 
#RMDS , _— og THE ADDRESS OF RMDS FOR TYPEQUT 
RO, SBDA :ADD_THE 1/0 BASE ADDRESS 


iPGM "DPR! DRY VV. $GDDAT 


#MOL | : COMPARISON CONSTANT 
PORTA,RMCS2(RO) :SELECT PORT A. 


ee eee — + ese —_ 


| CZRMRBO RMO5/ 3/2 DU POR TST 1 
| T15 PORT *B* SEIZE AND CLEAR TEST 


re eee: 
EE cee ame - 


507 
520 


022724 


016037 
7 


177777 © 
000011 


000013 


001170 
001224 
00000 


{ 
001124 
001172 
001226 
100000 
001124 
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743: 


75$: 


76$: 
77$: 


78$: 


1$: 


MOV 
BIC 
MOV 


RMDS (RO) ,STMP2 
$TMP 


HATA WV STMP1 
TMP 


STMP2, on al 
PORTB R 
PORTB, *RMCS2(RO) 
$TMPO 


. SBDDA 
PORTA, *RMCS2 (RO) 
STMP1 


76$ 
#~1 ,RELERR 
#11,RMCS1(RO) 


- #13, RMCS1 (RO) 
26 


7 
Sen” peer 
PORTB,PTNBR 


ATA, $BDDAT 


$GDDAT , SBDDAT 
78$ 


;CLEAR THE DRIVE 


;GET THE DRIVE STATUS REGISTER FROM PORT A. 
DONT CARES 


; CLEAR 
+ COPY IT INTO '$TMPO 


CLEAR "baat DEPENDENT BITS FROM THE COPY 


SELECT 


:GET THE DRIVE STATUS REGISTER FROM PORT B. 
; CLEAR DONT CARES 
;COPY IT INTO ‘$TMP 
:CLEAR PORT DEPENDENT BITS FROM THE COP 
ATUS REGISTER THE SAME FROM BOTH PORTS ? 


;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 


:1S THE 
BR IF 


sBYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD 


; SELECT 


;SE DATA ME SSAGE 
: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


FOR ERROR 


PORT B. 
; SEE IF STATUS EQ 0 FROM PORT A 


SEIZING 
SELECT 


IF ZE i 


T IF TEST —— DRIVE NOT IN NEUTRAL 
; "BAD DATAT FO FOR ERROR TYPE OUT 


SEE IF STATUS EQ ZERO FROM PORT B. 
7SET "RELEASE ERROR’ INDICATOR 


sRELEASE THE DRIVE 


; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
; CHANGE PORT NUMBER 

:DON'T CHECK THE ATIN BIT 

sSEE IF RE 
BR IF OK 


* 
. ° 


;LOOP ? 


L 
"BR IF OK FROM PORT A. 


AD OK 


FROM PORT 


LOOK FOR BIT FAILURES WHEN RMDS READ 
;CHANGE PORT NUMBER 
;DON’ T CHECK T THE ATTN BIT 


o MEERA EREREREE EERE RE AREER EERE EEE EE 


: TEST 16 


:*IF THE DRIVE IS IN NEUTRAL. 


READ THE CONTROL REGISTER (RMCS1) THROUGH PORT ‘A’; 


THE DRIVE IS SEIZED. 


ISSUE A RELEASE COMMAND THROUGH PORT 'A': VERIFY THAT TH 


- SEIZE 'A' BY RMCS1 TEST 
S*VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
VERIFY THAT 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


REEKKKEEAEKEEKEEKEREEKEKEEEEEEKKEKKEEEKRAEKEKEKREEEREEEEEEEAERARERAERAERAERE 


DRIVE 


SEQ 0079 


ee = 
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SEIZE °A* BY RMCS1 TEST SEO 0080 
023236 TST16: 
023236 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
023242 001406 BEQ 2$ “BR IF NOT 
023244 100002 BPL 1$ :BR IF JUST ang TEST 
023246 000137 003074 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
023252 012737 177777 001300 1$: MOV #=-1 ,KYBCTL :SET SINGLE TEST INDICATOR 
023260 012737 023274 001106 2%: MOV #TEST16,$LPADR :SETUP SCOPE LOOP ADDRESS 
Ocasee 012737 023274 001110 seerts MOV ATESTI6,$LPERR ;SETUP ERROR LOOP ADDRESS 
023274 112737 000016 001102 MOVB #15, $TSTNM ;MOVE 416 TO TEST NUMBER 
023302 012706 001100 MOV MSTACK,SP ;LOAD THE STACK POINTER 
_ 023306 012737 000012 001176 MOV #10. ,$TIMES ::D0 10. ITERATIONS 
531 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
023314 113760 001224 000010 MOVB PORTA,RMCS2(RO) * SELECT PORT #A 
023322 005060 000012 CLR RMDS (RO) ;SEIZE THE DRIVE 
023326 012760 000011 000000 MOV #11,RMCS1(RO) s ISSUE DRIVE CLEAR 
0623334 012760 000013 000000 MOV #13,RMCS1 (RO) sRELEASE THE DRIVE 
023342 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #B 
023350 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT '‘'B’ 
023354 012760 000011 000000 MOV #11,RMCS1(RO) : ISSUE DRIVE CLEAR 
023362 012760 000013 000000 MOV. #13,RMCS1(RO) ;RELEASE THE DRIVE 
:SEIZE THE DRIVE THROUGH PORT A 
023370 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
023376 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
023404 005760 000000 TST RMCS1 (RO) sREAD RHCS1 
023410 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
023416 013737 001226 001240 MOV PORTB,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
023424 013737 001226 001244 MOV PORTB, ; "OPPOSITE" PORT ADDRESS 
023432 016037 000012 001126 MOV RMDS (RO), SBDDAT :SEE IF DRIVE SEIZED BY PORT A 
023440 010037 001122 MOV RO, $BDADR :RH/RM BASE ADDRESS 
023444 062737 000012 001122 ADD #RMDS, SBDADR : GENERATE BAD REGISTER ADDRESS 
023452 005037 001124 CLR SGDDAT sREGISTER SHOULD BE ZERO 
023456 023737 001124 001126 CMP SGDDAT , SBDDAT “IS THE REGISTER ZERO 
023464 001403 BEQ 64$ “BR IF IT IS 
023466 104004 EMT 4 
sth 000137 024160 rom JMP 1$ ;BYPASS REST OF THE SUBTEST 
023474 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
023502 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
023510 016037 000072 001126 MOV RMDS(RO), SBDDAT :SEE IF SEIZING PORT SEES CORRECT STATUS 
023516 042737 020001 001126 BIC HOM! PIP ,SBDDAT :CLEAR DONT CARE BITS 
023524 012737 011700 001124 MOV WROL !PGA'DPR DRY! WV. SGDDAT eee STATUS 
023532 013737 001124 001166 MOV $GDDAT,$TMP1 :USE GOOD DATA AS A MASK 
023540 005137 001166 COM $TMP1 ; COMPLEMENT THE wth STATUS © 
023544 013737 001126 001164 MOV SBDDAT ,. STMPO - SAVE THE ACTUAL S 
023552 043737 001166 001164 BIC $TMP1,$TMPO ; CLEAR UNWANTED Bits 
23560 023737 001124 001164 CMP SGDDAT ,.$TMPO “ARE THE EXPECTED STATUS BITS SET ? * 
3566 001401 BEQ 65$ :BR IF THEY ARE 
023570 104005 EMT 5 
023572 000240 65$: 


sRELEASE THE DRIVE FROM PORT A 





$C L G  E C ttt ttt te 


TS Ay ees settee eee mmm - - 
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‘ SEIZE *A* BY RMCS1 TEST SEQ 0081 
023574 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT 
023602 013737 001224 001240 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
023610 012760 000013 000000 MOV #13.RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
| : VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
023616 005037 001254 CLR RELERR : CLEAR THE "RELEASE ERROR ' INDICATOR 
| 023692 012737 000012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
| 023630 060037 001122 ADD RO, SBDADR :ADD THE 1/0 BASE ADDRESS 
| 023634 012737 011700 061124 MOV #MOL'PGM'DPR!DRY'VV,SGDDAT ;COMPARISON CONSTANT 
| 023642 113760 001224 000010 MOVB PORTA, RMCS2(RO) TSELECT PORT’ A. 
! 023650 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
| 023656 042737 024001 001170 BIC #PIP'WRL'OM, :CLEAR DONT CARES 
023664 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO "$TMPO' 
023672 042737 100100 001164 BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
023700 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 
016037 12 001172 MOV RMDS(RO),S$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
023714 042737 024001 001172 BIC #PIP'WRL'OM, ZCLEAR DONT CARES 
623722 013737 001172 001166 V STMP3,$T :COPY IT INTO °$TMP1' 
023730 042737 100100 001166 BIC #ATA'VV,STMP1  =CLEAR PORT DEPENDENT BITS FROM THE COP 
23736 023737 001164 001166 CMP STMPO,$TMP1 “1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
023744 001006 BNE 66$ *BR IF NOT 
023746 005737 001164 TST $TMPO ZREGISTERS ARE THE SAME: ARE THEY ZERO ? 
023752 001045 BNE 68$ :BR IF NOT 
023754 104046 EMT 46 
3756 000737 024156 JMP 708 :BYPASS THE REST OF THE CHECKS 
023762 013737 001170 001126 66%: MOV STMP2,SBDDAT § :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
023770 013737 001226 001240 MOV PORTB.PTNBR 7SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
023776 113760 001226 000010 MOVB § PORTB.RMCS2(RO) SELECT PORT 8. 
024004 005737 001164 : TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
024010 001414 BEQ. 678 :BR IF ZERO 
024012 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024020 013737 001172 001126 ~~ MOV STMP3.S$BDDAT _: "BAD DATA’ FOR ERROR TYPE OUT 
024026 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
024034 005737 001166 TST STMP1 SEE IF STATUS. £Q ZERO FROM PORT B. 
024040 001012 BNE 68$ F NOT 
024042 012737 177777 001254 67$: MOV #~1 RELERR “SET "RELEASE ERROR’ INDICATOR 
024050 012760 000011 000000 MOV #11,RMCS1(RO)  =CLEAR THE DRIVE 
024056 012760 000013 000000 MOV #13,RMCS1(RO)  =RELEASE THE DRIVE 
024064 104026 EMT 26 
013737 001170 001126 68%: MOV STMP2,SBDDAT = :LOOK FOR BIT FAILURES WHEN RMDS READ 
024074 013737 001224 001240 MOV PORTA.PTNBR PORT NUMBER 
024102 042737 1 001126 BIC #ATA, $BDDAT “DON"T CHECK THE ATTN BiT 
024110 023737 001124 001126 CMP SGDDAT.$BDDAT ALL BITS OK ? 
024116 001401 : BEQ 69$ “BR IF OK FROM PORT A 
24120 104007 EMT 7 
024122 013737 001172 001126 69$: Mov STMP3,$BDDAT —: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
024130 013737 001226 001240 MOV PORTB.PTNBR “CHANGE PORT NUMBER 
024136 042737 100000 001126 BIC #ATA, $BDDAT =DON'T CHECK THE ATIN BIT 
| 024144 023737 001124 001126 CMP SGDDAT,$BDDAT :SEE IF READ Ok FROM PORT B. 
024152 001401 BEQ 70$ “BR IF OK 
024154 104007 EMT 
024156 000240 70$: NOP 
024160 000004 | 1$: SCOPE :LOOP ? 


532 
544 
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SEIZE *B* BY RMCS] TEST q SEC 008 
545 PRATER EEA AEERAETEREAEAERRERAERAAKER REE RRR eRe eee 
: TEST 17 SEIZE ‘B* BY RMCS1 TEST 


: eVERIFY THAT READING hy. CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
:*IF THE DRIVE IS IN NEUT 
;* A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT "B*; VERIFY THAT 


t THE DRIVE IS SEIZED. 
i B. ISSUE A RELEASE COMMAND THROUGH PORT ‘B': VERIFY THAT THE DRIVE 
te RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
**® 
EES 7 NCS AON RE 
024162 TST17: 
024162 005737 001300 TST KYBCTL DA ph we ONLY SINGLE TEST ? 
024166 001406 BEQ 2$ ;BR IF NOT 
024170 100002 BPL 1$ 7BR IF JUST goy TEST 
024172 000137 003074 JMP EXEC = RETURN & GET NEXT TEST NUMBER 
024176 012737 177777 001300 1$: MOV #-1 KYBCTL ;SET SINGLE TEST INDICATOR 
024204 012737 024220 001106 2$: MOV $#TEST17,$LPADR ;SETUP SCOPE LOOP ADDRESS 
ag 012737 024220 001110 sesri? MOV MTEST17,$LPERR ;SETUP ERROR LOOP ADDRESS 
024220 112737 000017 0601102 MOVB #17, $TSTNM sMOVE #17 TO TEST NUMBER 
024226 012706 001100 MOV AMSTACK,SP ;LOAD THE STACK POINTER 
wis 024232 012737 000012 001176 MOV #10. .STIMES *:D0 10. ITERATIONS 
547 
;CLEAR ATTENTION BITS FOR BOTH PORTS 
024240 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT @A 
024246 005060 000012 : CLP RMDS (RO) >SEIZE THE DRIVE 
024252 012760 000011 000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
024260 012760 000013 000000 MOV #13.RMCS1 (RO) sRELEASE THE DRIVE 
024266 113760 001226 000010 MOVB PORTB,RMCS2(RO) ; SELECT PORT 4B 
024274 005060 000012 CLR RMDS (RO) s;SEIZE THE DRIVE THROUGH PORT ‘B° 
024300 012760 000011 000000 MOV (#11,RMCS1(RO) ; ISSUE DRIVE CLEAR 
024306 012760 000013 000000 MOV #13,RMCS1(RO) :RELEASE THE DRIVE 
;SEIZE THE DRIVE THROUGH PORT B 
024314 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
024322 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
024330 005760 000000 TST RMCS1 (RO) ;READ RHCS1 
024334 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT | 
24342 013737 001224 001240 MOV PORTA, P TNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
024350 013737 001224 001244 MOV PORTA T *OPPOSITE’. PORT ADDRESS 
024356 016037 000012 001126 MOV RMDS (RO) , $BDDAT SEE a DRIVE SEIZED BY PORT B 
024364 010037 001122 MOV RO, $BDADR :RH/RM BASE ADDRESS 
024370 062737 000012 001122 ADD #ARMDS , SBDADR : GENERATE BAD REGISTER ADDRESS 
024376 005037 001124 CLR $GDDAT sREGISTER SHOULD BE ZERO 
024402 923737 001124 001126 CMP SGDDAT . $BDDAT 71S THE REGISTER ZERO 
024410 001403 BEQ 64$ “BR IF IT IS 
024412 104004 EMT 4 | 
024414 000137 025104 JMP 1$ ;BYPASS REST OF THE SUBTEST 
024420 _ 64$: 


024420 113760 001226 000010 MOVB PORTB.RMCS2(RO) ;SELECT PORT B 
024426 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
024434 016037 000012 001126 MOV RMDS(RO),SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 








—— 
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T17 SEIZE "B’ BY RMCS1 TEST SEQ 008% 

024442 042737 020001 001126 BIC #OM'PIP, $BDDAT :CLEAR DONT CARE BITS 
024450 012737 611700 001124 MOV #MOL !PGM' DPR! DRY! VV, $GDDAT EXPECTED STATUS 
024456 013737 001124 001166 MOV SGDDAT,$TMP1 ;:USE GOOD DATA AS A MASK 
024464 005137 001166 COM $TMP1 : COMPLEMENT THE EXPECTED STATUS 
024470 013737 001126 001164 MOV . $BDDAT,STMPO  :SAVE THE ACTUAL STATUS 
024476 043737 001166 001164 BIC STMP1, $TMPO :CLEAR UNWANTED Bits 
024504 023737 001124 001164 CMP SGDDAT,$TMPO SARE THE EXPECTED STATUS BITS SET ? 
024512 001401 BEQ 65$ “BR IF THEY ARE 
024514 104005 EMT 5 
024516 000240 65$: 

:RELEASE THE DRIVE FROM PORT B 
024520 113760 001226 000010 MOVB  PORTB.RMCS2(RO) ;:SELECT PORT B 
024526 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
024534 012760 000013 000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT B 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
624542 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR : 
024546 012737 000012 001122 MOV #RMDS,SBDADR §:FORM THE ADDRESS OF RMDS FOR TYPEOUT 
024554 060037 001122 ADD RO, $BDADR :ADD THE I/0 BASE ADDRESS ) 
024560 012737 011700 001124 MOV #MOL'PGM'DPR'DRY!VV,$GDDAT ;COMPARISON CONSTANT 
024566 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
924574 016037 000012 001170 MOV RMDS(RO),$TMP2 GET THE DRIVE STATUS REGISTER FROM PORT A. 
024602 042737 024001 001170 BIC #PIP'!WRL'OM,$TMP2 :CLEAR DONT CARES 
024610 013737 001170 001164 MOV STMP2,$TMPO :COPY IT INTO *$TMPO' 
024616 042737 100100 001164 BIC HATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
024624 113760 001226 000010 MOVB §PORTB,RMCS2(RO) :SELECT PORT B. 
024632 016037 000012 001172 MOV RMDS(RO),STMP3 -:GET THE DRIVE STATUS REGISTER FROM PORT B. 
024640 042737 024001 001172 BIC #PIP!WRL'OM, STMP3 :CLEAR DONT CARES 
024646 013737 001172 001166 MOV STMP3,STMP1 ;COPY IT INTO *$TMP1' 
024654 042737 100100 001166 BIC §_#ATA'VV,$TMP1  =:CLEAR PORT DEPENDENT BITS FROM THE COPY 

4662 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

024670 001006 7 BNE 66S , :BR IF NOT 
024672 005737 001164 “eet $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
024676 001045 BNE 68$ “BR IF NOT , 
024700 104046 EMT 46 
024702 000137 025102 JMP 70$ :BYPASS THE REST OF THE CHECKS 
024706 013737 001170 001126 66$: MOV STMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
024714 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024722 113760 001226 000010 - MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
024730 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
024734 001414 BEQ 67$ ‘BR IF ZERO 
024736 013737 001224 001240 MOV PORTA.PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
024744 013737 001172 001126 MOV $TMP3,SBDDA : "BAD DATA' FOR ERROR TYPE OUT 
024752 113760 001224 000010 MOVB _—s— PORTA, RAICSO<RO? =SELECT PORT 
024760 005737 001166 TST STMP1 ; SEE IF STATUS’ EQ ZERO FROM PORT B. 
024764 001012 BNE 68$ T 
024766 012737 177777 001254 67$: MOV | #=1.RELERR SET "RELEASE ERROR’ INDICATOR 
024774 012760 000011 000000 MOV . #11.RMCS1(RO)  :CLEAR THE DRIVE 
025002 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
025010 10402 EMT 26 
029012 013737 001170 26 68%: MOV $TMP2,$BDDAT = LOOK FOR BIT FAILURES WHEN RMDS READ - 


0011 
013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT 
| 100000 001126 BIC WATA, $BDDAT “DON'T CHECK THE ATIN BIT 
5034 023737 001124 001126 CMP $GDDAT,$BDDAT  :ALL BITS OK ? 
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025232 


025240 
025246 


012737 
1127357 


012706 
012737 


113760 
00 


005060 
012760 
012760 


113760 
013737 
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000000 
000 


000 
000010 : 


000000 
000000 


000010 


001242. 


69$ 


? 
$TMP3,$BDDAT 


$GDDAT . $BDDAT 
70$ 


;BR IF OK FROM PORT A 


;CHECK RMDS FOR BIT FAILURES = FROM PORT 8B. 
NUMBER 


; CHANGE PORT 

:DON'T CHECK THE ATIN BIT 
;SEE IF READ OK FROM PORT B. 
BR IF OK 


;LOOP ? 


EERE EEE 


PORT ‘A‘ INHIBIT SEIZE BY RMCS1 TEST 


:SVERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST* IF THE DRIVE IS SEIZED. 


SEIZE THE DRIVE THROUGH PORT 'B' BY READING RMCS1. 


VERIFY THAT 


THE DRIVE HAS BEEN SEIZED. 


=P THE CONTROL REGISTER FROM PORT ‘A’. 


ISSUE A RELEASE COMMAND THROUGH PORT ‘B'. 


VERIFY THA] ‘DVA’ IS NOT 


VERIFY THAT THE ‘DRIVE 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


BEQ 
EMT 

69$: MOV 
MOV 
BIC 
CMP 
BEQ 
EMT 

70$: NOP 

1$: SCOPE 

; *TEST 20 

se A, 

7* 

3 

se &. 

oe 

;* 

s¢ £. 

.* 

-* 

+8120: 
TST 
BEQ 
BPL 
JMP 

1$: MOV 

2s: MOV 
MOV 

TEST20: 
MOVB 
MOV 
MOV 


1$ 
EXEC 


#-1 ,KYBCTL 
#TEST20,$LPADR 
#TEST20,$LPERR 


#20, $TSTNM 
ASTACK ,SP 
#10. ,STIMES 


EERE AREER AEE AEE EERE REE EREREEEEEREREEEREERERE RE 


KYBCTL 
2$ 


an OF eer ONLY SINGLE TEST ? 


;BR_IF JUST ENTERED TEST 
:RETURN & GET NEXT TEST NUMBER 
sSET SINGLE TEST INDICATOR 
sSETUP SCOPE LOOP ADDRESS 
;SETUP ERROR LOOP ADDRESS 


sMOVE #20 TO TEST NUMBER 
;LOAD THE STACK POINTER 
::D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 





MOVB 
MOV 


PORTA, RMCS2(RO) 
RMDS (RO) 
#11,RMCS1(RO) 
#13,RMCS1(RO) 
day we 3 


#11,RMCS1(RO) 
#13,RMCS1(RO) 


SEIZE THE DRIVE THROUGH PORT B 


PORTB,RMCS2(RO) 
PORTB,SEIZPT 


:SELECT PORT: #A 

sSEIZE THE DRIVE 

: ISSUE DRIVE CLEAR 

;RELEASE THE DRIVE 

;SELECT PORT 48 

:SEIZE THE DRIVE THROUGH PORT *B' 
> ISSUE DRIVE CLEAR 

:RELEASE THE DRIVE 


;SELECT PORT B 


;STORE SEIZING PORT'S ADDRESS 


Sc ais: ines i ati Hessen Sai ate snee —~ ee Ome ee ae eee. 


_ ee 
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720 PORT *A* INHIBIT SEIZE 


i ee Ne eT 
| eee 
SS eee ee 


025254 


013737 


000 
113760 


00001 3 
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BY RMCS1 


001122 
001126 


001164 
001164 


000010 
001240 


001126 
001122 


001164 


001174 
001174 
001124 


000010 
001240 
000000 


TES 


643: 


65$: 


66$: 


RMCS1 (RO) :READ RHCS1 
PORTA,RMCS2(RO) °:SELECT PORT 
PORTA, PTNBR ; MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
PORTA.OPPRT : OPPOSITE’ PORT ADDRESS 
RMDS (RO) , $8 ; SEE IF DRIVE SEIZED BY PORT B 
RO, $BDADR RH/RM BASE ADDRESS 
#RMDS , SBDADR GENERATE BAD REGISTER ADDRESS 


$GDDAT ;REGISTER SHOULD BE ZERO 
ei wi -SBDDAT ;1S ern ZERO 


is ;BYPASS REST OF THE SUBTEST 
PORTB,RMCS2(RO) ; SELECT PORT 8 
PORTB.PT E PORT ADDRESS TO LOCATION FOR TYPEOUT 


V 

sSEE IF SEIZING PORT SEES CORRECT STATUS 
AR DONT CARE BITS 

sEXPECTED STATUS 
wa GOOD DATA’ AS A MASK 


RMDS (RO). $BDDAT 
#OM!PIP, $BDDAT :CLE 
#MOL !PGM! DPR! DRY! VV. $GDDAT 


SGDDAT,STMP1 
STMP1 OMPLEMENT THE he STATUS 
SEDDAT, STMPO ;SAVE THE ACTUAL STATUS 

STMP1, $TMPO ;CLEAR UNWANTED BITS 

SGDDAT, STMPO  =:ARE THE EXPECTED STATUS BITS SET ? 
65$ . sBR IF THEY ARE 


PORTA, RMCS2(RO) ;SELECT PORT 
A,PTNBR :MOvE PORT ADDRESS TO LOCATION FOR TYPEOUT 


THROUGH PORT A = 8 TO SET PORT REQUEST 


CLEAR THE ‘CHECK ERROR’ INDICATOR 
:GET CONTENTS OF RMCS1 
;FORM REGISTER ADDRESS OF ERROR MESSAGE 
:ADD RH/RM BASE ADDRESS 
:WHAT REGISTER SHOULD BE 
*MOVE REGISTER CONTENTS TO ‘STMPO' 
C407? STMPO: ;SAVE SPECIFIED BITS 
$GDDAT, STMPO : > COMPARE THE BITS 


66$ :BR IF OK 

SBDDAT.STMP4 * COPY ‘BAD DATA' 

#4077.$TMP4 # :CLEAR THE MASKED BITS 

ere »SGDDAT~ ;"OR" WITH GOOD DATA FOR TYPEOUT 


CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR 

RMCS1(RO) ssanoar” 
#RMCS1 , SBDADR 

RO, SBDAD 

SGDDAT yp 

SBDDAT STMPO < 


:DRIVE SHOULD RETURN TO NEUTRAL 
sRELEASE THE DRIVE FROM PORT B 


MOVB 


MOV 
MOV 


PORTB,RMCS2(RO) ;SELECT PORT B 
PORTB,PTNBR .;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
#13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 


sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 





SEQ 0085 


EE EE ee 
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T20 PORT *A* INHIBIT SEIZE 


584 


600 
601 


025610 


001164 


026150 


001224 
001172 
007224 
001166 


177777 
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001122 
001124 
000010 


001166 


001126 


001126 


68$: 


69$: 


70$: 


71$: 


72$: 


1$: 


) 
G 12 
E 10 


RELERR 
ARMDS , S$BDADR 
RO, $BDADR 


AD 
WMOL |PGM'DPR!DRY ‘VV, thay ae 


PORTA, ates 
ga 


MPO 
PORTB, RMCS2(RO) 
RMDS STMP3 


AP IP! WRL OM, $TMP 


$TMP3,$TMP1 
HATA'VV,STMP1 
$TMPO, STMPT 


72$ 
$TMP2 , SBDDAT 
PORTB,PTNBR 
PORTB,RMCS2(RO) 
$TMPO 


DA 
PORTA,RMCS2(RO) 
STMP1 


70$ 
#-1,RELERR 
#11,RMCS1(RO) 
| aa el 


#ATA, $BDDAT 
SGDDAT., . SBDDAT 


7 
$TMP3,$BDDAT 
PORTB,PTNBR 
HATA, $BDDAT 
SGDDAT , SBDDAT 
72$ 


-46 


;CLEAR THE ‘RELEASE ERROR ' INDICATOR 
; FORM THE ADDRESS OF RMDS FOR TYPEOUT 


D THE 1/0 BASE ADDRESS 
; COMPARISON CONSTANT 


‘GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
2 AR DONT CARES 


sSELECT P 


CLEAR DON 
:COPY IT INTO '$TMP 


CL 
>SELECT P 


:GET THE DRIVE STATUS REGISTER FROM PORT B. 
T CARES 


EAR "Scar DEPENDENT BITS FROM THE COPY 


st T DEPENDENT BITS FROM THE COPY 
s33 THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BR IF 
sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
;BR IF NOT 


sBYPASS THE REST OF THE CHECKS 


;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
seer eet wake IF TEST SHOWS DRIVE NOT IN NEUTRAL 


; SELECT 


T B. 
‘SEE * STATUS EQ 0 FROM PORT A. 
F ZERO 


: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
TYPE OUT 


nage 


DATA’ F 


- ERROR 


PORT 
+SEE IF STATUS EQ ZERO FROM PORT B. 
SET: "RELEASE ERROR’ INDICATOR 
:CLEAR THE DRIVE 
;RELEASE THE DRIVE 
: LOOK e Gene a WHEN RMDS READ 


; CHANGE 
sDON*T CHECK THE ATTN BIT 


SALL BITS OK ? 
;BR IF OK FROM PORT A. 


: CHECK RMDS FOR BIT FAILURES - FRO PORT B. 
T NUMBER 


; CHANGE POR 
:DON'T CHECK THE ATIN BIT 


;SEE IF READ OK FROM PORT B. 
:BR IF Ok 


sla 7 


CEA REAR EAEARERARAEERERARKEAERRERAEEERERAEERRREEERAEES 


PORT 'B* INHIBIT SEIZE BY RMCS1 TEST 


: TEST 21 


« eVERIFY 1HAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 


** 


a 
** 
y 


A. 


REQUEST’ IF THE DRIVE IS SEIZED. 


SEIZE THE DRIVE THROUGH PORT ‘A‘ BY READING RMCS1. 


VERIFY THAT 


SEQ 0086 


ee Re a 


are eli ee 
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PORT *B* INHIBIT SEIZE BY RMCS1 TES SEQ 0 


THE DRIVE HAS BEEN SEIZED. 
B. a THE CONTROL REGISTER FROM PORT ‘'B’. VERIFY THAT ‘DVA’ IS NOT 


;* 
:* C. ISSUE A RELEASE COMMAND THROUGH PORT ‘A’, VERIFY THAT ey DRIVE 
:* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 

§ 


+ "eee eee eee eee RRR RRR RRR RRR RRR RRRRERESESESASLESSLSSALELES 
026154 TST21: 
026154 005737 001300 TST KYBCTL Ht gh gt ONLY SINGLE TEST ? 
026160 001406 ) BEQ 2$ ;BR IF NOT 
026162 100002 BPL 1$ ;BR_IF JUST ENTERED TEST 
026164 000137 003074 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
026170 012737 177777 001300 1$: MOV 4-1 ,KYBCTL sSET SINGLE TEST INDICATOR 
026176 012737 026212 001106 2$: MOV ATEST21,$LPADR ;SETUP SCOPE LOOP ADDRESS 
ests 012737 026212 001110 vera’ MOV AMTEST21,$LPERR ;SETUP ERROR LOOP ADDRESS 
026212 112737 000021 001102 MOVB #21,$TSTNM sMOVE #21 TO TEST NUMBER 
626220 012706 001100 MOV ASTACK,SP ;LOAD THE STACK POINTER 

enn 026224 012737 000012 001176 MOV #10. ,STIMES ::D0 10. ITERATIONS 
603 . 

sCLEAR ATTENTION BITS FOR BOTH PORTS 
026232 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
026240 005060 000012 CLR RMDS (RO) sSEIZE THE DRIVE 
026244 (12760 000011 000000 MOV M11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
026252 012760 000013 000000 MOV . #13,RMCS1(RO) ;RELEASE THE DRIVE 
026260 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 4B 
026266 005060 000012 CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT ‘B' 
026272. 012760 000011 000000 MOV #17,RMCS1(RO) ;ISSUE DRIVE CLEAR 
02650C 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 

sSEIZE THE DRIVE THROUGH PORT A 
026306 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
026314 013737 001224 001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT” S ADDRESS 
026322 005760 000000 TST RMCS1 (RO) sREAD RHCS1 
026526 113760 001226 000010 MOVB PORTB,.RMCS2(RO) ;SELECT PORT B 
026334 013737 001226 001240 MOV PORTB,PTNBR MOV E PORT ADDRESS TO LOCATION FOR TYPEOUT 
C26342 013737 001226 001244 MOV PORTB ,OPPRT ; OPPOSITE’ PORT ADDRESS 
0263550 016037 000012 001126 _ MOV RMDS (RO), seen. iSEE IF DRIVE SEIZED BY PORT A 
026356 010037 001122 MOV RO, $BDAD RH/RM BASE ADDRESS 
026362 062737 000012 001122 _ » ADD #RMDS , ;SBDADR GENERATE BAD REGISTER ADDRESS 
026370 005037 001124 CLR SGDDAT ;REGISTER SHOULD BE ZERO 
026374 023737 001124 001126 — CMP $GDDAT,$BDDAT ;1S THE REGISTER ZERO 
026402 001403 BEQ 64$ SBR IF IT IS 
026404 104004 EMT 4 
Osea to 000137 027220 ine JMP 1$ sBYPASS REST OF THE SUBTEST 
026412 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
026420 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
026426 016037 000012 001126 MOV RMDS(RO), SEDDAT SEE IF SEIZING PORT SEES CORRECT STATUS 
026434 042737 020001 001126 Bic #OM!PIP, $BDDAT ;CLEAR DONT CARE BITS 
026442 012737 011700 001124 MOV #MOL!PGM'DPR!DRY!VV,$GDDAT ; EXPECTED STATUS 
026450 013737 001124 001166 MOV $GDDAT,$TMP1 ;USE GOOD DATA AS A MASK 


TT TNR 4 einer amenite Senin ————"ee es ae - - -_=— ———- eee os . 
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C2R 
TO} INHIBIT SEIZE BY RMCS1 TEST 

026456 005137 001166 COM $TMP1 : COMPLEMENT THE EXPECTED STATUS 

026462 013737 001126 001164 MOV SBDDAT S$TMPQ.  :SAVE THE ACTUAL STATUS 

026470 043737 001166 001164 BIC 1, $TMPO “CLEAR UNWANTED BITS 

026476 023737 001124 001164 CMP ScoDAT. STMPO  :ARE THE EXPECTED STATUS BITS SET ? 

026504 001401 BEQ 65$ “BR IF THEY ARE 

026506 104005 EMT 5 

026510 000240 65$: NOP 

026512 113760 001226 000010 MOVS PORTB,RMCS2(RO) ;SELECT PORT B 

026520 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
:READ RMCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 

026526 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 

026532 016037 000000 001126 MOV RMCS1(RO),$BDDAT ;GET CONTENTS OF RMCS1 

026540 012737 000000 001122 MOV #RMCS1,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

026546 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 

9026552 005037 001124 CLR $GDDAT “WHAT REGISTER SHOULD BE 

026556 013737 001126 001164 MOV SBDDAT,S$TMPO §:MOVE REGISTER CONTENTS TO ‘STMPO’ 

026564 042737 173700 001164 BIC #*C(4077,$TMPO ;SAVE SPECIFIED BITS 

626572 023737 001124 001164 CMP SGDDAT, $TMPO ; COMPARE THE BITS 

026600 001414 BEQ 66$ :BR IF OK 

026602 013737 001126 001174 MOV _.—Ss-: SBDDAT,$TMP4 =—ss : COPY -"BAD DATA’ 

026610 042737 004077 001174 BIC #4077, $TMP4 :CLEAR THE MASKED BITS 

026616 053737 001174 001124. BIS STMP4 ,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 

026624 104010 EMT 10 

026626 005137 001250 COM “KERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

026632 000240 66$: NOP 


sDRIVE SHOULD RETURN TO NEUTRAL 
sRELEASE THE DRIVE FROM PORT A 


026634 113760 001224 000010 MOVB _—s PORTA, RMCS2 (RO) :SELECT PORT A 
026642 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
026650 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
026656 005037 001254 | CLR RELERR :CLEAR THE "RELEASE ERROR ‘ INDICATOR 
026662 012737 000012 001122 MOV #RMDS,SBDADR §_:FORM THE ADDRESS OF RMDS FOR TYPEOUT 
026670 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
026674 012737 011700 001124 MOV #MOL !PGM! DPR! DRY! VV, S$GDDAT : COMPARISON CONSTANT 
026702 113760 001224 900010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
026710 016037 000012 001170 | MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
026716 042737 024001 001170 BIC #PIP'WRL'OM, $TMP2 :CLEAR DONT CARES 
026724 013737 001170 001164 MOV STMP2, STMPO :COPY IT INTO '"$TMPO' 
026732 042737 100100 001164 BIC #ATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
026740 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
026746 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
026754 042737 024001 001172 BIC #PIP!WRL'OM,$TMP3 :CLEAR DONT CARES 
026762 013737 001172 001166 MOV $TMP3,$TMP1 :COPY IT INTO '$TMP1' 
026770 042737 100100 001166 BIC #ATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
026776 023737 001164 001166 CMP $TMPO, $TMP1 -1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
027004 001006 BNE 68$ “BR IF NOT 
027006 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
027012 001045 BNE 70$ “BR IF NOT 
027014 106046 EMT 46 
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027016 


Ooo 
UU 
S 
= 


io) 
Nm 
~N 
ah 
— 
Oo 


027220 


027222 
027222 
027226 

027230 


Se eee: 


027260 
027266 


027232 
0212%6.. 


000137 027216 


905737 001164 
001414 
aire 001224 


012760 000013 
04026 


10402 
013737 001170 
013737 001224 
042737 100000 
023737 001124 
od 401 


104007 

013737 001172 
013737 001226 
942737 100000 
th 001124 


005737 001500 
001406 


000137 


003074 
12737 177777 001300 
027244 ~OOTT06 
057589 012737 027260 001110 
027260 
112737 000022 001102 


012706 001100 
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001254 


000000 
000000 


001126 
00 
001126 


001126 
001240 
001126 
001126 


68$: MOV 


69$: MOV 


70$: MOV 


71$: MOV — 


72$: 
1$: 


72$ 
$TMP2 , SBDDAT 
PORTB,PTNBR 
PORTB,RMCS2(RO) 
$STMPO 


69$ 
PORTA. PINBR 
$TMP3 . $BDD 
PORTA. PMCS2 (RO) 
$TMP1 


70$ 

#~1 ,RELERR 
#11,RMCS1(RO) 
#13. eRMCS1 (RO) 
$TMP2, $BDDAT 


$GDDAT , SBDDAT 
71$ 


7 ) 
$TMP3 ,$BDDAT 
PORTB,PTNBR 
#ATA,$BDDAT 


$GDDAT , SBDDAT 
02$ 


SEQ 0089 


;BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
sea Bcy pont a IF TEST SHOWS DRIVE NOT !N NEUTRAL 


;SELECT 

;SEE IF STATUS EQ 0 FROM PORT A. 
:BR IF ZERO 
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;*BAD DATA’ FOR ERROR TYPE OUT 

sSELECT PORT A. 

ae ag. _—e EQ ZERO FROM PORT 8. 

3SET °R maLeASS ERROR’ INDICATOR 

;CLEAR T 


HE DRIVE 
;RELEASE THE DRIVE 
;LOOK FOR BIT FAILURES WHEN RMDS READ 
; CHANGE PORT NUMBER 
:DON'T CHECK THE ATTN BIT 
:ALL BITS OK ? 
;BR IF OK FROM PORT A. 
: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
iC NUMBER 


HANGE PORT 

:DON'T CHECK THE ATIN BIT 
;SEE IF READ OK FROM PORT B. 
BR IF OK 


;LOOP ? 


PT TIETTI TT TTL ITLL TTL T TT TTT TTT TTT TTT TTT TTT CTT CTT Tee 


SEIZE BY RMAS TEST 
TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 


: TEST 22 


** 
e 
;* ; 
*“* 
e 
**® 
ee 
** 
oe 
** 
e 
*@ “Gi. 
** 
e 
*“* 
e 
& 
es 
ee 
TS 


OPPOS I 


T2e: 


_1$: 





(RMAS) SEIZES THE DRIVE. 
PORT 


KYBCTL 
2$ | 


1$ | 
EXEC 
4#~1 ,KYBCTL 


“WTEST22; $LPADR 
#TEST22,$LPERR 


#22, $TSTNM 
ASTACK,SP 


VERIFY THAT REQUEST IS SET FOR THE OTHER 


A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 
IS SEIZED. 


ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT: VERIFY THAT THE 
DRIVE SWITCHES TO THE OPPOSITE PORT. ISS 
TE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 


RARER AEE EREAEAA EERE EERE EAERAERAARAREKEAEAEAERERRARERREEEE 


UE A RELEASE THROUGH THE 


‘aR IF NOT ONLY SINGLE TEST ? 


;BR IF 
BR IF JUST ENTERED TEST 
;RETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR = 
S SETUP SCOPE LOOP ADDRESS ~~ 
;SETUP ERROR LOOP ADDRESS 


s;MOVE #22 TO TEST NUMBER 


———ewe SS ee 


“LOAD THE STACK POINTER 


| CZRMRBO RMO5/3/2 DU POR TSI 1 
SEIZE BY RMAS TEST 


027272 012737 000012 


J 


c 


TL ER 


nn 


621 
675 


027354 
027362 


027370 


027376 
027404 


027412 


027562 


00 
01 
01 
11 
00 


5 
032760 
012760 


113760 


013737 


013760 
113760 
013737 


013737 


001230 
001224 


001236 


031274 
001226 
001226 
000012 
030574 


031274 


001126 
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001176 


000010 


. 900000 


000000 
000010 
000000 
000000 


000010 
001242 


001240 


000010 
001240 


000010 
001240 


: SELECT 


: VERIFY 


1$: 


s;PORT B 
2$: 





MOV #10. ,STIMES 3300 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


PORTA,RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) ;SEIZE THE DRIVE 

MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 
PORTB,RMCS2(RO) :SELECT PORT #8 

CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT ‘B’ 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) [RELEASE THE DRIVE 


DRIVE OTHER THAN THAT BEING TESTED 


MOVB PORTC ,RMCS2(RO) SEE TSE DRIVE NOT BEING TESTED 
MOV PORTA,SEIZPT ;"SEIZED’ PORT ADDRESS 


:WRITE THE DRIVE'S ATTENTION BIT 


MOV ASR1,RMAS(RO) ;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 
PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


THAT EITHER PORT A OR PORT B HAS THE DRIVE 

TST RMDS (RO) :SEE THE REGISTER THROUGH PORT A ? 
BNE 1$ “BR IF YES 

MOVB § PORTB, RMCS2(RO) °:SELECT PORT 


=) 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
TST RMDS (RO) ; SEE rye 4g ER THROUGH PORT B ? 


BNE | 2$ BR IF 
EMT 42 ; 
JMP 4$ sBYPASS REST OF TEST 
MOVB PORTB.RMCS2(RO) ;SELECT PORT B 
PORTB,PT sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


MOV 
TST RMDS (RO) REGISTER SHOULD BE ZERO THROUGH PORT B 


BNE . .+6 :BR IF STATUS REG IS NOT ZERO 
JMP 3$ STATUS REG IS ZERO 

EMT 43 

JMP 4$ sBYPASS REST OF TEST 


HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 


CLR CKERR :CLEAR THE "CHECK ERROR" INDICATOR 
MOV RMDS(RO) ,$BDDAT —:GET CONTENTS OF RMDS 

MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 

MOV MOL | POM !DPR!DRY! VV. SGDDAT :WHAT REGISTER SHOULD BE 
MOV $BDD MPO  :MOVE REGISTER CONTENTS TO "$TMPO' 
BIC rr C71 700. STMPO :SAVE SPECIFIED BITS 

CMP SGDDAT, .$TMPO ; COMPARE THE BITS 


64 ;BR_IF OK 
MOV SBDDAT , STMP4 ;COPY "BAD DATA‘ 


Oe ee me eee se 


— 


tee — - 


027622 


027630 


027656 
027664 


000240 
013737 
013737 


113760 
013737 
012760 


113760 
013737 
012760 
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SEIZE BY RMAS TEST 


071700 
001174 


001250 


001226 
001224 


001226 
001226 
000013 
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000010 
001240 
000000 


001124 
001122 


000010 


001172 


643: 


: VERIFY 


66$: 


67$: 


s VERIFY 





OL TT ee 


BIC #71700,$TMP4 = s CLEAR THE MASKED BITS 
BI $TMP4 , $GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
com CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
MOV PORTB,SEIZPT ;ADDRESS FOR ERROR MESSAGE 
MOV PORTA, OPPRT :SAME AS ABOVE 
:RELEASE THE DRIVE FROM PORT B 
MOVB = PORTB,RMCS2(RO) ; SELECT PORT 8 
MOV PORTB,PTNBR VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 
CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
MOV HATA! MOL !PGM! DPR!DRY! VV. $GDDAT ; COMPAR I SON CONSTANT 
MOV #RMDS SBDADR REGISTER ADDRESS INCREMENT 
ADD RO, $BDADR :REGISTER BASE ADDRESS FOR TYPEOUT 
MOVB = PORTA, RMCS2 (RO) yf SELECT PORT 
MOV TNBR E PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS (RO), Naiwb YREAD STATUS REGISTER FROM PORT A 
MOVB  PORTB,RMCS2(RO) “:SELECT PORT B 
MOV PORTB.PT :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT B 
BEQ 66$ :BR IF STATUS FROM PORT B ZERO 
TST $TMPO :1S STATUS FROM PORT A ZERO ? 
BEQ 66$ -BR IF ZERO 
EMT 44 
MOV STMPO, SBDDAT :CHECK STATUS FROM PORT A 
MOV PORTA, PTNBR : CHANGE PORT ADDRESS FOR TYPEOUT 
CMP SGDDAT . $BDDAT : COMPARE | WITH CONSTANT 
BEQ 67$ :BR IF 
EMT 
NOP 
;RELEASE THE DRIVE FROM PORT A 
MOVB  PORTA,RMCS2(RO) ;:SELECT PORT A 
MOV PORTA,PT :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A . 
THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR CLEAR THE "RELEASE ERROR * INDICATOR 
MOV ARMDS,$BDADR §;FORM.THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, SBDADR ‘ADD THE I/0 BASE ADDRESS 
MOV 'PGM'DPR! DRY! VV, $GDDAT ; COMPAR SON CONSTANT 
MOVB PORTA. RMCS2(RO) :SELECT PORT 
MOV RMDS(RO),$TMP2 :GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
BIC #PIP!WRL'OM, STMP2 CLEAR DONT CARES 
MOY $TMP2,$TMPO :COPY IT INTO ‘$STMPO' 
BIC #ATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOV8 _—s— PORTB, RMCS2(RQ) =SELECT PORT B. 
MOV RMDS (RO), *GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC SPIP“URLIOM STM :CLEAR DONT CARES 


me ee ee ee ee ee ee ee 


i 
4 
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MN 
ND 


| 
| SEQ 00972 
| 030132 013737 001172 001166 MOV —s STMP3., STMP1 :COPY IT INTO '$TMP1" 
| 030140 042737 100100 001166 BIC WATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
030146 023737 001164 001166 CMP $TMPO,$TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
030154 00? BNE 68$ :BR IF NOT 
030156 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
050162 001045 BNE 70$ ‘BR IF NOT 
030164 104046 EMT 46 
166 137 030366 JMP 72$ ;BYPASS THE REST OF THE CHECKS 
030172 013737 001170 001126 68%: MOV STMP2,$BDDAT  §;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT_IN NGUTRAL 
030206 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
030214 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
030220 001414 BEQ 69$ “BR IF ZERO 
030222 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
030230 013737 001172 001126 MOV STMP3.$BDDAT  :"BAD DATA’ FOR ERROR TYPE OUT 
030236 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT 
030244 005737 007166 TST $TMP1 :SEE IF STATUS. EQ ZERO FROM PORT B. 
030250 001012 BNE 70$ “BR IF NOT 
030252 012737 177777 001254 69%: MOV #~1,RELERR 7SET "RELEASE ERROR’ INDICATOR 
030260 012760 000011 000000 MOV #11-RMCS1(RO) . :CLEAR THE DRIVE 
30266 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
030274 104026 EMT 
030276 013737 001170 001126 70$: MOV €7MP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
030304 013737 001224 001240 MOV PORTA, PTNBR =C PORT 
030312 042737 100000 001126 ~ BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 
030320 023737 001124 001126 CMP SGDDAT.$BDDAT <ALL BITS OK ? 
030326 001401 BEQ 71$ “BR IF OK FROM PORT A. 
030330 104007 EMT 7 
030332 013737 001172 001126 71$: MOV STMP3,$BDDAT —; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
030340 013737 001226 001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
030346 042737 100000 001126 BIC #ATA, $BDDAT [DON'T CHECK THE ATTN BIT 
030354 023737 001124 001126 CMP SGDDAT, SBDDAT SEE IF READ OK FROM PORT B. 
030362 001401 BEQ 72$ 7BR IF OK 
030364 104007 EMT ? 
030366 000240 72$: NOP 
030370 000137 031274 JMP 4$ 
‘ ;THE DRIVE IS SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 
030374 3$: 
030374 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
030402 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
030410 005037 001250 CLR CKERR SCLEAR THE "CHECK ERROR’ INDICATOR 
030414 016037 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
030422 012737 000012 001122 MOV #RMDS.SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
030430 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE | ADDR ESS 
030434 012737 011700 001124 MOV #MOL 'PGM'DPR! DRY! VV, S$GDDAT REGISTER SHOULD BE 
030442 013737 001126 001164 MOV SBDDAT.$TMPO  :MOVE R REGISTER C CONTENTS TO "STMPO" 
030450 042737 106077 001164 BIC #*C71700,$TMPO :SAVE SPECIFIED BITS 
030456 023737 001124 001164 CMP SGDDAT, $TMPO ; COMPARE, T HE BITS \ 
030464 001414 BEQ 73$—CO :BR IF OK 
030466 013737 001126 001174 » MOV SBDDAT,STMP4 §: COPY ‘BAD DATA’ 
74 042737 071700 001174 BIC #71700. $TMP4 ; CLEAR THE MASKED BITS 
030502 053737 001174 001124 BIS STMP4,$GDDAT : "OR" WITH GOOD DATA FOR TYPEOUT 
030510 104010 EMT 1 
030512 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


030516 000240 73$: MOP 


L- | 
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030520 
030526 


030534 
030542 
030550 


030710 
030716 


013737 
013737 


113760 


013737 
012760 


001224 
001226 


ES 
— 
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mV 
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S=s 
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SS 
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001242 
001244 


MOV 
MOV 


PORTA,SEIZPT 
PORTB,OPPRT 


vr RELEASE THE DRIVE FROM PORT A 


001126 


001126 
001240 
001126 


VERIFY 


75$: 


76$: 
sRELEASE THE DRIVE FROM PORT B 


; VERIFY 


MOVB 
MOV 
MOV 


MOVB 
MOV 
MOV 


CLR 


PORTA, RMCS2 (RO) 
PORTA,PTNBR 
#13,RMCS1(RO) 


RELERR 


#ATA!MOL!PGM!DPR'DRY!VV,$GDDAT ; COMPAR 


;ADDRESS FOR _— ME SSAGE 


;SAME AS ABO 


;SELECT PORT 


MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


; ISSUE RELEASE THROUGH PORT 
THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
;CLEAR ‘RELEASE ERROR’ INDICATOR 


a CONSTANT 


RO eae SBDADR ;REGISTER ADDRESS INCREMENT 
BADR sREGISTER BASE ADDRESS FOR TYPEOUT 
PORTE .RMCS2(RO) SELECT PORT B 


RMDS (RO) , $TMPO 


PORT ADDRESS TO LOCATION FOR TYPEOUT 


;READ a peer a REGISTER FROM PORT B 


ADDRESS TO LOCATION FOR TYPEOUT 


aaata” RMCS2(RO) ; SELECT 

PORTA,PTNBR ;MOVE PORT 

RMDS(RO),S$BDDAT ;DRIVE STATUS FROM PORT A 

75$ ;BR IF STATUS FROM PORT A * ERO 
STMPO :I1S STATUS FROM PORT B ZERO ? 
i :BR IF ZERO 

STMPO, el ;CHECK STATUS FROM PORT B 
PORTB ,PTNBR > CHANGE PORT ADDRESS FOR TYPEOUT 
$GDDAT,$BDDAT COMPARE WITH CONSTANT 

oss :BR IF OK 


PORTB, RMCS2 (RO) 
TB, PTNBR 
#13,RMCS1(RO)- 


RELERR 
ARMDS, er 
« RO, $BDAD 


> AD 
5 AMOLTPGM!DPRDRYIVV. S$GDDAT 


PORTA, pe sy 
RMDS (RO) , $TMP2 


PPIP'WRL TOM, S1MP 


STMP2 ,$TMPO 
HATA! VV,STMPO 
PORTB,RMCS2(RO) 
RMDS (RO) , $TMP3 


#PIP!WRL ‘OM, $TMP 


$TMP3,STMP1 
HATA'VV,STMP1 
$TMPO , $TMP1 
77$ 


$TMPO 


2 


;SELECT PORT B 


VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
: ISSUE RELEASE THROUGH PORT B 


THAT THE DRIVE IS STILL IN NEUTRAL 


;CLEAR THE "RELEASE ERROR * INDICATOR 
:FORM THE ADDRESS OF RMDS FOR TYPEOUT 


D THE I/0 BASE ADDRESS 
2 “ayeaeieaiee CONSTANT . 


:SELECT PORT 


sGET THE DRIVE “STATUS REGISTER FROM PORT A. 
:CLEAR DONT CARES 


L 
:COPY IT INTO '$TMPO' 


PORT DEPENDENT BITS FROM THE COPY 


CLEAR 
:SELECT PORT 


-GET THE DRIVE STATUS REGISTER FROM PORT B. 
AR DONT CARES 


ste 
:COPY IT INTO '$T 


MP1° 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 


:IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NOT 
sREGISTERS ARE THE SAME: ARE THEY ZERO ? 





ED 
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SEIZE BY RMAS TEST SEQ 0094 
001045 BNE 79$ ;BR IF NOT 
031070 104046 EMT 46 
031072 137 031272 JMP 81$ ;BYPASS THE REST OF THE CHECKS 
031076 013737 001170 001126 /77$: MOV STMP2 , SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
31106 013737 001226 001240 MOV PORTB,PTNBR > SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031112 113760 001226 000010 MOVB PORTB,RMCS2(RO) 7 SELECT PORT 8B. 
031120 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
031124 001414 BEQ 78$ :BR IF ZERO 
031126 013737 001224 001240 MOV otree gnanay . EIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031134 013737 001172 001126 MOV STMP3 ,SBDDA ; "BAD DATA’ FOR ERROR TYPE OUT 
031142 113760 001224 000010 MeVB PORTA, *RMCS2(RO) :SELECT PORT A. 
031150 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. , 
031154 001012 BNE 79$ ;BR IF NOT 
031156 012737 177777 001254 78$: MOV #-1,RELERR ;SET ‘RELEASE ERROR’ INDICATOR 
031164 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIV 
031172 012760 000013 000000 #13,RMCS1(RO) 7 RELEASE THE DRIVE 
031200 194026 EMT 26 : 
031202 013737 001170 001126 79$: MOV STMP2 ,$BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
031210 013737 001224 001240 MOV PORTA,PTNBR s¢ T NUMBER 
C31216 042737 001126 BIC MATA A, $BDDAT DON’ T CHECK THE ATTN BIT 
031224 023737 001124 001126 CMP SGDDAT, SBDDAT TALL BITS OK ? 
031232 001401 BEQ 80$ ;BR IF OK FROM PORT A. 
031234 007 EMT 7 
031236 013737 001172 001126 80$: MOV STMP3,SBDDAT :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
1244 013737 001226 001240 MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
031252 042737 001126 BIC - #ATA,$BDDAT :DON'T CHECK THE ATIN BIT 
1 023737 001124 001126 CMP SGDDAT , SBDDAT 7SEE IF READ OK FROM PORT B. 
001401 BEQ 81$ ;BR IF Ok 
031270 104007 EMT 7 
031272 000240 81$: NOP 
031274 000004 4$: SCOPE ;LOOP ? 
689 * sRRRRHRRRERRRRERERRERER EE RERRERRRERE RARER ERE R ER ER REE EERE 
:*TEST 23 INHIBIT SEIZE BY RMAS TEST 
: VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ‘ZERO’ IS WRITTEN INTO 
; THE DRIVE’S ATTENTION BIT 
-“*® 
;* A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 
:* BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
** 
:* B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 
>t 
+ RRR RRRRRRRRRERERRA ERE EERE RERERERERRREERERE REAR ERR EEE RRR 
031276 TST23: 
031276 005737 001300 TST KYBCTL or oe ONLY SINGLE TEST ? 
031302 001406 BEQ 2$ F NOT 
031304 100002 ] BPL 1$ “BR IF JUST ENTERED TEST 
031 000137 003074 JMP EXEC :RETURN & GET NEXT TEST NUMBER 
031312 012737 177777 001300 1$: MOV #=1 .KYBCTL :SET SINGLE TEST INDICATOR 
031 012737 031334 001106 2$: MOV MTEST23,$LPADR ;SETUP SCOPE LOOP ADDRESS 
oat 6 012737 031334 001110 rest2% MOV #TEST23,$LPERR : SETUP ERROR LOOP ADDRESS 
031334 112737 000023 001102 MOVB eee STSTNM sMOVE #23 TO TEST NUMBER 
037342 012706 001100 MOV TACK, SP sLOAD THE STACK — 
031346 012737 000012 001176 MOV +10. STIMES ;D0 10. ITERATION 
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125 INHIBIT SEIZE BY RMAS TEST , SEG OOS 
690 
705 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
0313554 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
031362 5060 000012 CLR RMDS (RO) :SEIZE THE DRIVE 
031366 012760 000011 000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
031374 012760 000013 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
031402 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
031410 5 000012 CLR RMDS (RO) sSEIZE THE DRIVE THROUGH PORT ‘B’ 
031414 012760 000011 000000 MOV #11,RMCS1(RO) +S SSUE DRIVE CLEAR 
031422 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
031430 113760 001230 000010 . MOVB PORTC .RMCS2(RO) SELECT DRIVE NOT BEING TESTED 
sWRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 
031436 0135737 001236 001164 MOV ASR1,$TMPO :STORE ATTN BIT FOR PORT A 
031444 005137 001164 COM T COMPLEMENT IT 
031450 013760 001164 000016 MOV STMPO,RMAS(RO) ;WRITE THE ATTN REGISTER 
VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
031456 005037 001254 CLR RELERR ;CLEAR_THE ‘RELEASE ERROR ° INDICATOR 
031462 012737 000012 001122 ~~ MOV #RMDS . _e ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
031470 060037 001122 ADD RO, SBDAD ADD THE 1/0 BASE ADDRESS 
031474 012737 011700 001124 MOV #MOL | PGM! DPR! DRY VV. SGDDAT ;COMPARISON CONSTANT 
031502 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
031510 016037 900012 001170 MOV RMDS(RO),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
031516 042737 024001 001170 BIC #PIP‘WRL ‘OM, $TMP :CLEAR DONT CARES 
031524 013737 001170 001164 MOV STMP2 ,STMPO :COPY IT INTO *STMPO' 
031532 042737 100100 001164 BIC WATA!VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
031540 113760 001226 000010 MOVB ~ PORTB,RMCS2(RO) :SELECT PORT 
031546 016037 000012 001172 MOV RMDS(RO),STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
031554 042737 024001 001172 BIC #PIP!WRL!OM,STMP sCLEAR DONT CARES 
0137357 001172 001166 MOV STMPS .STMP1 ;COPY IT INTO "STMP1' 
031570 re tel 1001CO 001166 BIC MATA!VV.STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COP 
031576 023737 001164 001166 CMP STMPO,.STMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
031604 001006 BNE 64$ F NOT 
031606 005737 001164 TST STMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
031612 001045 BNE 66$ :BR IF NOT 
031614 104046 EMT re A 
031616 000137 032016 JMP sBYPASS THE REST OF THE CHECKS 
031622 013737 001170 001126 64$: MOV STMP2 , SBDDAT :SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
031630 013737 001226 001240 MOV PORTB .PTNBR SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
031636 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 
1644 005737 001164 TST STMPO +SEE d STATUS EQ 0 FROM PORT A 
031650 001414 BEQ 65$ F ZERO 
031652 013737 001224 001240 MOV PORTA ,PTNBR SEIZING A ge IF TEST oe DRIVE NOT IN NEUTRAL 
031660 013737 001172 001126 MOV STMP3 , SBDDAT :*BAD DATA’ FOR ERROR TYPE OUT 
031666 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A. 
031674 005737 001166 TST STMP 1 : SEE - STATUS EQ ZERO FROM PORT B. 
031700 001012 BNE 66$ 
031702 012737 177777 001254 65$: MOV #-1,RELERR "SET "RELEASE ERROR’ INDICATOR 
031710 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
Ost one vias 000013 000000 oat #13,RMCS1(RO)  ;RELEASE THE DRIVE 


E 
013737 001170 001126 66$: MOV $TMP2, $BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
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001224 
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MN & 
AAO 


Sssss $88 % 


000000 


67$: 


68$: 


PORTA, PTNBR ;CHANGE PORT NUMBER 
#ATA, $BDDAT :DON'T CHECK THE ATTN BIT 

SGDDAT,$BDDAT ‘ALL BITS Ok 

67s :BR IF OK PROM PORT A. 

STMP3,$BDDAT —; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB.PTNBR ;CHANGE PORT NUMBER 

#ATA, $BDDAT :DON'T CHECK THE ATTN BIT 


S$GDDAT, SBDDAT 
683 


sSEE IF READ OK FROM PORT B. . 
;BR IF OK 


;LOOP ? 


FREAK REE REAR AKEAEREEAAEEREEREREKEEEEEKE RHEE EEEEEEEEEREREREKEEE 


SET PORT ‘A* REQUEST TEST 


: TEST 24 


: “VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ‘B' BY WRITING O'S INTO RMDS. 


Oo > 


-” 
. 


] 
a 


*. e 
Wiss +e e+ +e eee eH 


—w——GBe Be Be Se Se Ge Be Be Be Be Be Be 


S126: 


1$: 
2$: 


TEST24: 


WRITE O'S INTO RMDS FROM PORT ‘A’; 
SEIZED BY PORT °B’. 


ISSUE A 
SWITCHED TO PORT ‘A’. 


VERIFY THAT THE DRIVE IS STILL 


A RELEASE COMMAND FROM PORT ‘B' AND VERIFY THAT THE DRIVE 


VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT °B’. 


PORT *A* AND IS NOT SET FOR 


ISSUE 4 


RELEASE COMMAND THROUGH 


PORT ‘A’ AND VERIFY THAT THE DRIVE 


RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


LEAK ERRRRERERRRE RRR EREERREREERERERERERRRRERER ERE RR ERE R EERE ERE 


KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
e$ 7BR 1° NOT. 

1$ :BR IF JUST yy TEST 

EXEC RETURN & GET NEXT TEST NUMBER 
4-1 ,KYBCTL :SET SINGLE Test. INDICATOR 
ATEST24,$LPADR ;SETUP SCOPE LOOP ADDRESS 
#TEST24,$LPERR ;SETUP ERROR LOOP ADDRESS 

#24, $TSTNM sMOVE #24 TO TEST NUMBER 
A#STACK, SP ;LOAD THE STACK POINTER 

#10. ,STIMES :;D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 





PORTA,RMCS2(RO) 
RMDS (RO) 


#11,RMCS1(RO) 
#13,RMCS1(RO) 


:SELECT PORT #A 
;SEIZE THE DRIVE 
> ISSUE DRIVE CLEAR 
:RELEASE THE DRIVE 


PORTE, —" : :SELECT PORT 48 


RMD 
#11,RMCS1(RO) 


SEIZE THE DRIVE THROUGH PORT 'B' 
: ISSUE DRIVE CLEAR 


a 


a ee eee nt eet ee 


| CZRMRBO ay be DU POR TST 1 
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EL Eee ee ee 


032146 


032154 
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032210 


032216 


C32222 


012760 


13739 


005060 


113760 
013737 


012760 - 


000013 


001226 
001226 


000012 
001224 
901224 
001224 


000012 
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883888 8s 
se UR 


—) 
— A) 


001164 
001174 


MOV #13,RMCS1(RO) 
:SEIZE THE DRIVE THROUGH PORT B 


MOVB §PORTB,RMCS2(RO) :SELECT PORT B 

MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
CLR RMDS (RO) ;WRITE RMDS 

MOV PORTA, OPP : "OPPOSITE' PORT ADDRESS 

MOVB = PORTA} RMCS2(RO) :SELECT PORT 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 


:SET PORT REQUEST 

CLR RMDS(RO) — ;SET PORT REQUEST FOR PORT A 
;RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A. 
;RELEASE THE DRIVE FROM PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION _" TYPEOUT 
MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT 


sVERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


CLR RELERR : CLEAR "RELEASE ERROR’ INDICATOR 
MOV #ATA! MOL !PGM! DPR DRY ! VV. $GDDAT ; COMPAR SON CONSTANT 
MOV #RMDS SBDADR ;REGISTER ADDRESS INCREMENT 

ADD . RO,$B8DADR ;REGISTER BASE ADDRESS FOR TYPEOUT 
MOVB PORTA, RMCS2(RO) ":SELECT PORT A 
MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO),$TMPO :READ STATUS REGISTER FROM PORT A 

MOVB PORTB.RMCS2(RO) °:SELECT PORT B 

MOV PORTB,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO),$BDDAT ;:DRIVE STATUS FROM PORT B 

BEQ 66$ :BR IF STATUS FROM PORT B ZERO 


sRELEASE THE DRIVE 


TST STMPO :1S STATUS FROM PORT A ZERO ? 
eae oes :BR IF ZERO 

66$ MOV tine fe a ;CHECK STATUS FROM PORT 
MOV PORTA,PTNBR : CHANGE PORT ADDRESS FOR TYPEOUT 
CMP SGDDAT, SBDDAT ;COMPARE WITH CONSTANT 
emt 37 =" 


67$: NOP 

MOVB PORTB,RMCS2(RO) ;SELECT PORT B . 

MOV PORTB,PTNBR : MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS , SBDADR = FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD “RO,$BDADR :ADD RH/RM BASE ADDRESS 

CLR SGDDAT s;WHAT REGISTER SHOULD BE 

MOV S$BDDAT,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO’ 
‘BIC #*CATA,STMPO : SAVE Ah BITS 

CMP SGDDAT , STMPO en te F THE BITS 


68 ;BR IF OK 
MOV SBDDAT , S$TMP4 :COPY "BAD DATA' 


Ee 
ene sneeenneenneementees ee = = _ 


—--———_—— —-.. 
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PORT ‘A’ REQUEST TEST SEQ 0096 

032474 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 
032502 053737 001174 001124 BIS STMP4 ,SGDDAT 7*OR' WITH GOOD DATA FOR TYPEOUT 
032510 104016 EMT 16 
032512 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
032516 000240 68$: NOP 
032520 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
032526 013737 001224 001240 MOV PORTA,PINBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032534 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
032540 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
032546 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
032554 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
032560 012737 100000 001124 MOV #ATA,$GDDAT ;WHAT REGISTER SHOULD BE 
032566 013737 001126 001164 MOV SBDDAT,$TMPO  ;MOVE REGISTER CONTENTS TO 'STMPO' 
032574 042737 077777 001164 BIC #*°CATA,STMPO :SAVE SPECIFIED BITS 
032602 023737 001124 001164 CMP SGDDAT,$TMPO © ;COMPARE THE BITS 
032610 001414 BEQ 70$ *BR IF OK 
032612 013737 001126 001174 MOV SBDDAT,$TMP4 = : COPY ‘BAD DATA’ 
032620 042737 100000 001174 BIC HATA, STMPG “CLEAR THE MASKED BITS 
032626 053737 001174 001124 BIS $TMP4,.$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
032634 104016 : EMT 16 
032636 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
0326.2 000240 70$: NOP ! 

;RELEASE THE DRIVE FROM PORT A 
032644 113760 001224 000010 MOVB PORTA,RMCS2(RO) =:SELECT PORT A 
032652 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
032660 012760 000013 000000 MOV = «#13,RMCS1(RO)” ;ISSUE RELEASE THROUGH PORT 

VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
032666 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ° INDICATOR 
032672 012737 000012 001122 MOV #RMDS.SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
032700 060037 001122 | ADD RO. SBDADR :ADD THE 1/0 BASE ADDRESS 
032704 012737 011700 001124 MOV #MOL'PGM'DPR'DRY!VV.$GDDAT :COMPARISON CONSTANT 
032712 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
032720 016037 000012 001170 MOV RMDS(RO).$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
032726 042737 024001 001170 BIC #PIP!WRL'OM, $TMP2 =CLEAR DONT 
032734 013737 001170 001164 MOV STMP2, STMPO :COPY IT INTO ‘STMPO’ 
032742 042737 100100 001164 BIC WATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
032750 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
032756 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
032764 042737 024001 001172 BIC #PIP' WRL'OM,STMP3 :CLEAR DONT CARES 
032772 013737 001172 001166 MOV STMPS,STMP1 :COPY IT INTO °$TMP1' 
033000 042737 100100 001166 BIC HATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
033006 023737 001164 001166 CMP S$TMPO,$TMP1 = :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
033014 001006 BNE 72$ SBR IF NOT 
033016 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
033022 001045 BNE 74$ :BR IF NOT 
033024 104046 EMT 46 
033026 000137 033212 JMP 76$ :BYPASS THE REST OF THE CHECKS 
033032 013737 001170 001126 72$: mov $TMP2,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
033040 013737 001226 001240 MOV PORTB,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
033046 113760 001226 000010 MOVB § PORTB,RMCS2(RO) :SELECT PORT B. 
033054 005737 001164 TST. $TMPO : SEE IF STATUS EQ 0 FROM PORT A 


033060 001414 BEQ 73$ :BR IF ZERO 
033062 013737 001224 001240 MOV PORTA,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NE) "RE 
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001126 
000010 
001254 
000000 
000000 
001126 


001126 
001240 
001126 


001300 
001106 
001110 
001102 


001176 


73$: 


743: 
75$: 


76$: 
1$: 


$TMP3,$BDDAT ; ‘BAD DATA’ » ERROR TYPE OUT 
PORTA,RMCS2(RO) ; SELECT PORT 

$STMP1 SEE 4 STATUS EQ ZERO FROM PORT B. 
74% ;BR_IF NOT 

#-1 ,RELERR 


;SET "RELEASE ERROR' INDICATOR 
;CLEAR THE DRIVE 
;RELEASE THE DRIVE 


#11,RMCS1 (RO) 
#15, »RMCS1(RO) 


6 

$STMP2,$BDDAT :;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA,PTNBR i CHANGE PORT NUMBER 

S$GDDAT,$RBDDAT :ALL BITS OK ? 

ie “BR IF OK FROM PORT A. 

$TMP3 ,SBDDAT i CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
PORTB,PTNBR ; CHANGE PORT NUMBER ; 

$GDDAT , $BDDAT SEE IF READ OK FROM PORT B. 

76$ “BR IF OK 


;LOOP ? 


SEERA RAE REE RAE AEA EREREREKEAEEEAEEEREARTEKEEEEKEEKEEEEERHHKKHEE 


; STEST 25 


: VERIFY THAT WRITING A DRIVE REGISTER SETS ‘PORT REQUEST’ WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 


SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING O'S INTO RMDS. 


- 


om | 
J] 


Oo 


wmeqg@tse Se Bs Be Be Be Be Be Be Be Be Be Be Bs Se 
Wiss +e Pee eR eee ee 


125: 


1$: 
2$: 


TEST25: 


WRITE O°S INTO oa FROM PORT 'B'; 


SET PORT 'B' REQUEST TEST 


VERIFY THAT THE DRIVE IS STILL 


SEIZED BY PORT 


ISSUE A RELEASE COMMAND 
SWITCHED TO PORT ‘B’. 
PORT "B* AND IS NOT SET FOR PORT 


ISSUE A RELEASE COMMAND THR 


FROM PORT °A* AND VERIFY THAT THE DRIVE 
VERIFY Lg te ATTENTION BIT IS SET FOR 


PORT *B* AND VERIFY THAT THE DRIVE 


OUGH 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


RARER AEEAAEEAAEKREARRERARAEKARKEAEEARARAKERERAKERERAEEREREED 


KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
2$ 3 IF NOT 

1$ ey IF JUST ENTERED TEST 

EXEC URN & GET NEXT TEST NUMRER 
#-1 ,.KYBCTL ‘SET USINGLE TEST INDICATOR 
#TEST25, SLPADR ;SETUP SCOPE LOOP ADDRESS 
ATEST25,$LPERR SETUP ERROR LOOP ADDRESS 


425, $1TSTNM sMOVE #25 TO TEST NUMBER 
ASTACK, SP ;LOAD THE STACK POINTER 
#10. .STIMES ::D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


tr ee = — ee = 


| | tees ~ 


274 


033350 
033356 
055564 
033370 
033376 
033404 


033412 


013737 


005066 


113760 


013737 


012760 


012737 
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001224 


0000 

001226 
001226 
001226 


000012 


001224 
001224 
00001 3 


001254 
111700 
0000 
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000010 MOVB PORTA,RMCS2(RO) :SELECT PORT #A 
CLR RMDS (RO) ;SEIZE THE DRIVE 
000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
000900 MOV #13.RMCS1(RO) RELEASE THE DRIVE 
000010 MOVB PORTB,RMCS2(RO) :SELECT PORT #8 
CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT ‘RB’ 
000000 MOV #11,RMCS1(RO)  ;ISSUE DRIVE CLEAR 
000000 MOV #13,RMCS1(RO)  ;RELEASE THE DRIVE 
SEIZE THE DRIVE THROUGH PORT A 
000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A 
001242 MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 
CLR RMDS (RO) :WRITE RMDS 
001244 MOV PORTB,OPPRT : OPPOSITE’ PORT ADDRESS 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT 8 
001240 ~ MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
:SET PORT REQUEST 
CLR RMDS (RO) SET PORT REQUEST FOR PORT B 
;RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 
RELEASE THE DRIVE FROM PORT A 


000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001240 7 MOV 


MOV — PORTA,PTNBR E PORT ADDRESS TO LOCATION a TYPEOUT 

000000 MOV #13,RMCS1(RO) =; ISSUE RELEASE THROUGH PORT 
VERIFY ‘THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
001124 MOV #ATA!MOL!PGM!DPR'DRY!VV,S$GDDAT ; COMPARISON CONSTANT 
001122 MOV #RMDS,SBDADR ;REGISTER ADDRESS INCREMENT 

ADD RO. SBDADR sREGISTER BASE ADDRESS FOR TYPEOUT 
000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001164 MOV RMDS(RO),$TMPO ;READ STATUS —— FROM PORT B 
000010 MOVB PORTA.RMCS2(RO) °:SELECT PORT 
001240 MOV TA,PT ;MOVE PORT ADDRESS TO Lore toe FOR TYPEOQUT 
001126 MOV RMDS(RO),SBDDAT ;DRIVE STATUS FROM PORT A 

BEQ é6$ ;BR IF STATUS FROM PORT A ZERO 

TST $TMPO ‘aR STATUS FROM PORT B ZERO ? 

po gos BR IF ZERO 
001126 66$%: MOV $TMPO , SBDDAT + CHECK STATUS FROM PORT B 
001240 . MOV PORTB ,PTNBR HANGE PORT ADDRESS = TYPEOUT 
001126 CMP SGDDAT , SBDDAT ® COMPARE WITH CONSTAN 

BEQ 67$ :BR IF OK 

EMT 27 | 

67$: NOP | 

000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 

CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS 
001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


a LLL LS A A A — 
_ ~ _ SS Se eee —— cone 
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T *B* REQUEST T 


033626 0037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 

033632 005037 601124 CLR $GDDAT :WHAT REGISTER SHOULD BE 

033636 013737 001126 001 MOV SBDDAT,$TMPO sMOVE REGISTER CONTENTS TO ‘$TMPO' 
033644 2737 077777 001164 BIC A*CATA,$STMPO ;: SAVE SPECIFIED D BITS 

033652 023737 001124 00 C S$GDDAT,$TMPO ;COMPARE THE BITS 

033660 001414 BEQ 68$ ;BR IF OK 

033662 013737 001126 001174 MOV SADDAT ,STMP4 ;COPY ‘BAD DATA’ 

033670 042737 100000 001174 BIC HATA, $TMPG ;CLEAR_THE MASKED BITS 

033676 053737 001174 001124 BIS $TMP4 , $GDDAT :'OR’ WITH GOOD DATA FOR TYPEOUT 

033704 104016 EMT 16 

033706 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
033712 000240 68$: NOP 

0335714 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

033722 013737 001226. 001240 MOV A 18. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
033730 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
033734 016037 000012 001126 MOV RMDS(RO),$&DDAT . ;GET CONTENTS OF RMDS 

033742 012737 000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR ME SSAGE 
033750 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 

033754 012737 100000 .001124 MOV #ATA,$GDDAT ;:WHAT REGISTER SHOULD BE 

633762 013737 001126 001164 MOV SBDDAT , $TMPO sMOVE REGISTER CONTENTS TO '$TMPO’ 
033770 042737 077777 001164 BIC #*°CATA,STMPO :SAVE SPECIFIED BITS 

033776 023737 001124 001164 CMP SGDDAT , $TMPO ; COMPARE THE BITS 

034004 001414 BEQ 70$ BR F OK 

034006 013737 001126 001174 MOV SBDDAT , STMP4 :COPY "BAD DATA’ 

034014 042737 100000 001174 BIC HATA, STMPS :CLEAR THE MASKED BITS 

034022 053737 001174 001124 BIS STMP4 ,.SGDDAT :"OR' WITH GOOD DATA FOR TYPEQUT 
034030 104016 EMT 16 

pgs 005137 001250 COM CKERR :SET. THE REGISTER COMPARE ERROR INDICATOR 


000240 70$: NOP 
. :RELEASE THE DRIVE FROM PORT B 


034040 113760 001226 000010 MOVB PORTB, RMCS2 (RO) sSELECT PORT B 
034046 013737 001226 001240 MOV TNBR VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
034054 012760 000013 000000 MOV #13, RMCS1(RO)- : ISSUE RELEASE THROUGH PORT B 


:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


034062 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
034066 012737 000012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
034074 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
034100 012737 011700 001124 MOV #MOL !PGM!DPR! DRY! VV, S$GDDAT : COMPAR SON CONSTANT 
034106 113760 001224 10 MOVB  PORTA,RMCS2(RO) :SELECT PORT 
034114 016037 001170 MOV RMDS(RO).$TMP2 :GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
034122 042737 024001 001170 BIC #PIP'WRL'OM, STMP2 :CLEAR DONT CARES 
034130 013737 001170 001164 V STM? STMPO. :COPY IT INTO *$TMPO" 
034136 042737 100100 001164 BIC HATA! VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
034144 113760 001226 000010 PORTB,RMCS2(RO) :SELECT PORT 
034152 016037 000012 001172 MOV RMDS(RO),$TMP3 = :GET THE DRIVE STATUS REGISTER FROM PORT B. 
034160 042737 024001 001172 BIC #PIP'WRL ‘OM, STMP3S CLEAR DONT CARES 
034166 013737 001172 001166 My $TMP3,$TMP >COPY IT INTO "$TMP1' 
034174 042737 100100 001166 B #ATA'VV,$TMP1  =CLEAR PORT DEPENDENT BITS FROM THE COPY 
202 023737 001164 001166 CMP $TMPO,$TMP1 "1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
034210 001006 E 72$ “BR IF NOT 
034212 005737 001164 TT $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
634216 001045 BNE 74$ “BR IF NOT 
034220 104046 EMT 46 
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034450 TEST26: 


T PORT 'B* REQUEST TEST : SEQ 010: 
ca 
034222 000137 034406 yMP 76$ :BYPASS THE REST OF THE CHECKS 
034226 013737 001170 001126 72%: V $TMP2, SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
034234 013737 001226 001240 V PORTB.PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
034242 113760 001226 000010 10OVB PORTB,RMCS2(RO) :SELECT PORT B. 
034250 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A 
034254 001414 BEQ 73$ 7BR IF ZERO 
034256 013737 001224 001240 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
034264 013737 001172 001126 MOV S$TMP3.$B8DDAT =: "BAD DATA’ FOR ERROR TYPE OuT 
034272 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
034300 005737 001166 . TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
034304 001012 BNE 74$ :BR IF NOT 
034306 012737 177777 .001254 73$: MOV #-1 ,RELERR SET “RELEASE ERROR’ INDICATOR 
034314 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 
034322 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
034330 104026 EMT 26 
034332 013737 001170 001126 74%: MOV $TMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
034340 013737 001224 001240 MOV PORTA,PTNAR ; CHANGE PORT NUMBER 
034346 023737 001124 001126 CMP SGDDAT,$BDDAT <ALL BITS OK ? 
034354 001401 gp BEQ 75$ :BR IF OK FROM PORT A 
634356 104007 EMT ? 
034360 013737 001172 001126 75%: MOV STMP3, SBDDAT CHECK RMDS FOR BIT. FAILURES - FROM PORT B. 
034366 013737 901226. 901240 MOV _.. PORTB,PTNBR .. .- CHANGE ‘PORT’ NUMBER | 
034374° 023737 001124 '001126°' °° >: °° CMP SGDDAT,  SBDDAT :SEE IF READ OK FROM PORT B. | 
034402 001401 EQ 76$ :BR IF OK ; | 
034404 104007 EMT ? | | 
034406 000240 76$: NOP | | 
034410 000004 1$: _, SCOPE :LOOP ? | 
803 2 TREE EERE ER AREER TERRE ERE 
:*TEST 26 TEST RESET ATTENTION 'A® BY DRIVE CLEAR 
:*VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
: SEIZING PORT. 
:* A, SE EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH W ATTENTION BITS 
*® 
:* 6. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING 0°S INTO RMDS. 
"* 
:* (C. ISSUE A DRIVE CLEAR COMMAND. | 
. i 
‘* D. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE ATTENTION 
3* BIT FOR PORT 'A* HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
i* "B’ IS STILL SET. | 
° 
. jiMssseneunnnasauanancucsseseeununsaneuannnensunnnnerseneundsness | 
034412 TST26: | | 
034412 005737 001300 TST KYBCTL | gPERFORMING ONLY SINGLE TEST ? 
034616 001406 eos BRIE NOL seney test | 
a B oe. L | 
034422 000139 003074 mney Lee. :RETURN & GET NEXT TEST NUMBER | 
034426 012737 .177777 001300 1$: MOV. #=-1.KYBCTL :SET SINGLE TEST INDICATOR © 
034434 012737 034450 001106 28: MOV #TEST26,$LPADR :SETUP SCOPE LOOP ADDRESS | | 
034442 012737 034450 001110 MOV #TEST26,$LPERR :SETUP ERROR LOOP ADDRESS 
} 
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TEST RESET ATTENTION *A* BY DRIVE CLEAR 


035024 


112737 
012706 
012737 


113760 


042737 
953737 


000026 
001100 
000012 


001224 
000072 
177777 
000014 
001226 
000012 


177777 


100000 
001174 
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001102 
001176 


600010 


000014 
000010 


000014 


000010 — 


: 


S Ssss SS &§ 
—) ad od ek ests —d ad —) 
—d = od dh ed ee ed — NN 
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SER HEEL MOQ OO 


oOo 
Ooo 


#25, $TSTNM 
ASTACK , SP 
#10.,$TIMES 


sMOVE #26 TO TEST NUMBER 
;LOAD THE STACK POINTER 
:;D0 10. ITERATIONS 


:SET ATTENTION BITS FOR BOTH PORTS 


66$: 


64$: 


65$: 


;SELECT PORT 64$ 
;MAKE SURE DRIVE AVAILABLE 


sFORCE ERRORS 
;CLEAR THE ERRORS 


PORTA,RMCS2(RO) 
RMDS (RO) 


66% 
#~1 ,RMER1 (RO) 
RMER1 (RO) 


PORTB,RMCS2(RO) ;SELECT THE OTHER PORT 

RMDS (RO) WAIT FOR DRIVE TO_ TIMEOUT 

64$ “BR IF DRIVE HASN'T TIMED OUT : 
#-1,RMER1(RO) ;FORCE ERRORS ON PORT 65$ paoveeG 
RMER1 (RO) ;CLEAR THE ERRORS 


PORTA,RMCS2(RO) ;SELECT PORT ''64$'' AGAIN 
RMDS (RO) sWAIT FOR DRIVE TO TIMEOUT 


“BR IF DRIVE HASN'T TIMED OUT 


: CONFIRM THAT BOTH ATTENTION BITS ARE SET 


67$: 


CKERR 
-RMDS (RO) ,SBDDAT 


PORTA,RMCS2(RO) ;SELECT PORT A 
POR TA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 


RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
#RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR ;ADD RH/RM BASE ADDRESS 


HATA, SGDDAT ;WHAT REGISTER SHOULD BE 
$BDDAT,$TMPO  :MOVE REGISTER CONTENTS TO ‘STMPO' 

a CATA. STMPO ; SAVE SPECIFIED BITS 

SGDDAT,$TMPO ~° :COMPARE THE BITS 

67$ [BR IF OK 

SBDDAT,$TMP4 § : COPY "BAD DATA" 

HATA, STMPG :CLEAR THE MASKED BITS ‘ 
STMPS , SGDDAT :"OR' WITH GOOD DATA FOR TYPEOUT 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR :WAS ATTN BIT FOR PORT A SET ? , 
+6 :BR IF IT } 
i$ :BYPASS REST OF TEST IF NOT 
PORTB,RMCS2(RO) ':SELECT PORT B 

PORTB-PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEGUT 


:CLEAR THE “CHECK ERROR’ INDICATOR 
;GET CONTENTS OF RMDS 
#RMDS . SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO, RH/RM BASE ADDRESS 
HATA, SGDDAT WHAT REGISTER SHOULD BE 
SBDDAT , STMPO sMOVE REGISTER CONTENTS TO ‘STMPO' 


#*CATA,STMPO ;SAVE SPECIFIED BITS 
—° -STMPO : COMPARE THE BITS 


6 IF OK 

SBDDAT , $TMP4 COPY "BAD DATA 

HATA, STMPS ;CLEAR THE MASKED BITS 

$TMP4 ,SGDDAT ;'OR' WITH GOOD DATA FOR TYPEQUT 


SEQ 0105 
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TEST RESET ATTENTION °A* BY DRIVE CLEAR SEQ 0104 
035032 104010 EMI 10 
035034 005137 601250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
035040 240 69$: NOP 
035042 005737 001250 TST CKERR :WAS ATTN BIT FOR PORT B SET ? 
035046 001402 BEQ +6 “BR IF IT WA 
035050 137 036104 JMP i$ :BYPASS REST OF TEST IF NOT 
:SEIZE THE DRIVE THROUGH PORT A 
035054 113760 001224 000010 MOVB  PORTA,RMCS2(R0) ;SELECT PORT A 
035062 013737 001224 001242 MOV PORTA,SEIZPT ;:STORE SEIZING PORT’S ADDRESS 
035070 005060 12 CLR RMDS (RO) :WRITE RMDS 
035074 113760 001226 10 MOVB § PORTB,RMCS2(RO) °:SELECT PORT B 
035102 013737 001226 001240 MOV PORT .PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
035110 013737 001226 001244 MOV PORTB,OP ; 'OPPOSITE' PORT ADDRESS 
035116 016037 12 001126 MOV RDS (RO) _SBDDAT i SEE IF DRIVE SEIZED BY PORT A 
035124 010037 001122 MOV RO,$BDA H/RM BASE ADDRESS 
035130 062737 12 001122 ADD TPODS, SBDADR ‘ CENERATE BAD REGISTER ADDRESS 
035136 005037 001124 CLR GDDAT *REGISTER SHOULD BE ZERO 
035142 . 023737 001124 001126 CMP SGDDAT,$8DDAT :IS THE REGISTER ZERO ; 
035150 001403 BEQ 71$ Ke “BR IF IT IS 
035152 104004 EMT 
035154 000137 036104 sal JMP :BYPASS REST OF THE SUBTEST 
035160 113760 001224 000010 MOVB :SELECT PORT A 
035166 013737 001224 001240 MOV NBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
035174 016037 12 001126 MOV RMDS (RO) , $BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
035202 042737 020001 001126 BIC #OM!PIP., $BDDAT :CLEAR DONT CARE BITS 
035210 012737 011700 001124 MOV #MOL!PGM'DPR!DRY!VV,$GDDAT :EXPECTED STATUS 
035216 013737 001124 001166 MOV SGDDAT,$TMP1 :USE GOOD DATA AS A MASK 
035224 005137 0011 COM STMP1 : COMPLEMENT THE EXPECTED STATUS 
035230 013737 001126 001164 MOV. _—‘ $BDPAT, STMPO :SAVE THE ACTUAL STA 
5236 043737 001166 001164 BIC STMP1, :CLEAR UNWANTED Bits 
035244 023737 001124 001164 CMP SGDDAT, STMPO “ARE THE EXPECTED STATUS BITS SET ? 
035252 001401 BEO 72$ “BR IF THEY ARE 
035254 104005 EMT 
035256 000240 72$: NOP 
; ISSUE DRIVE CLEAR COMMAND TO PORT A 
035260 012760 000011 000000 MOV #11,.RMCS1(RO)  ;DO A DRIVE CLEAR COMMAND 
:VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 
35266 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR" INDICATOR 
035272 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 
35 012737 000012 001122 MOV #RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
35 37 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
035312 005037 001124 CLR $GDDAT “WHAT REGISTER SHOULD BE 
035316 013737 001126 001164 MOV SBDDAT.$TMPO = :MOVE REGISTER CONTENTS TO ‘$TMPO" 
035324 042737 077777 001164 BIC #*CATA.$IMPO :SAVE SPECIFIED BITS 
035332 023737 001124 001164 CMP SGDDAT,$TMPO © ;COMPARE THE BITS 
035340 001414 BEQ 73$ : 
035342 013737 001126 001174 MOV $BDDAT,$TMP4 =: COPY ‘BAD DATA" 
035350 042737 100000 001174 BIC HATA, STMP4 “CLEAR THE MASKED BITS 
035356 053737 001174 001124. BIS $IMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
035364 104047 EMT 47 








SOS a eS Get 


——_— ee 


13 
CZRMRBO RMO5S/3/2 DU POR TST 1. MACRO V04.00 4-APR-81 18:06:25 PAGE 10-65 


| 126 TEST RESET ATTENTION “A* BY DRIVE CLEAR SEQ 0105 
035366 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
035372 000240 73$: NOP 


sRELEASE THE DRIVE FROM PORT A 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 


035374 113760 001224 000010 
ode 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO rol oi FOR TYPEOUT 


035402 013737 


035410 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH 

:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
035416 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
035422 012737 000012 001122 MOV #RMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
035430 060037 001122 ADD RO, $8DADR -ADD THE 1/0 BASE ADDRESS 
035434 012737 011700 001124 MOV #MOL |! PGM! DPR! DRY! VV, $GDDAT : COMPAR SON CONSTANT 
035442 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
035450 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE’ STATUS REGISTER FROM PORT A. 
035456 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 CLEAR DONT CARES 
035464 013737 001170 001164 MOV STMP2,STMPO :COPY IT INTO ‘$TMP 
035472 0427387 100100 001164 BIC WATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
035500 113780 001226 000010 moO PORTB,RMCS2(RO) :SELECT PORT 

06 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
035514 042737 024001 001172 BIC #PIP'WRL'OM,$TMP3 CLEAR DONT CARES 
035522 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO *$TMP1' 

30 042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE CoP 
035536 023737 001164 001166 CMP STMPO, STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
035544 001006 BNE 75$ :BR IF NOT 
035546 005737 001164 TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
035552 001045 BNE 77$ “BR IF NOT 
035554 104046 EMT 46 | 
035556 000137 035756 JMP 79$ :BYPASS THE REST OF THE CHECKS 
035562 013737 001170 001126 75$: MOV STMP2,$BDDAT  ;:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
035570 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035576: 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 

035604 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A 

035610 001414 BE 76$ :BR IF ZERO 

035612 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
035620 013737 001172 001126 MOV STMP3, SBDDAT ;"BAD DATA’ FOR ERROR TYPE OuT 

035626 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A. 

035634 005737 001166 | TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
035640 001012. —«- BNE 77$ :BR IF NOT 

035642 012737 177777 001254 76$: MOV #~1 ,RELERR *SET "RELEASE ERROR’ INDICATOR 
035650 012760 000011 000000 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 

035656 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE* THE DRIVE 

035664 104026 , EMT 26 

035666 013737 001170 001126 77$: Moy STMP2,$BDDAT LOOK FOR BiT FAILURES WHEN RMDS READ . 
035674 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT 

035702 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 

035710 023737 001124 001126 CMP SGDDAT,$B8DDAT  :ALL BITS 

035716 001401 : BEQ 78$ “BR IF OK PROM PORT A. 

035720 104007 , EMT 7 

035722 013737 001172 001126 78%: MOV S$TMP3,$BDDAT : CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
035730 013737 001226 001240 . MOV PORTB,PTNBR ; CHANGE PORT NUMBER 

035736 042737 100000 001126 BIC HATA, $BDDAT “DON'T CHECK THE ATIN BIT 

035744 023737 001124 001126 CMP $GDDAT,$BDDAT  :SEE IF READ OK FROM PORT B. 

035752 001401 , BEQ 79$ “BR IF 

035754 104007 : EMT 7 
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TEST RESET ATTENTION ‘A* BY DRIVE CLEAR SEQ 0106 
035756 000240 79$: NOP 
:CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 
055760 113760 001226 000010 MOVB PORTB, tT Saal ;SELECT PORT B 
035766 013737 001226 001240 MOV PORTB,PTNBR + ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
035774 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
036000 016037 000012 001126 MOV RMDS(RO), SBDDAT ;GET CONTENTS OF RMDS 
036006 012737 000012 001122 . MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
036014 060037 001122 ADD RO, $BDADR ;ADD _RH/RM BASE ADDRESS 
036020 012737 1 001124 MOV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
036026 013737 001126 001164 MOV $BDDAT , S$TMPO sMOVE REGISTER CONTENTS TO ‘STMPO' 
036034 2737 077777 001164 BIC #°CATA,STMPO ;SAVE SPECIFIED BITS 
036042 023737 0011 001164 C SGDDAT , STMPO + COMPARE THE BITS 
036050 001414 BEQ 80$ IF OK 
036052 013737 001126 001174 SBDDAT , STMP4 COPY "BAD DATA’ 
036060 042737 100000 001174 BIC HATA, STMP4 ;CLEAR THE MASKED BITS 
036066 053737 001174 001124 BIS $TMP4 , $GDDAT ;"OR* WITH GOOD DATA FOR TYPEOUT 
036074 10405 EMT 50 
636076 005137 001250 COM CKERR ;SET THE REGISTER COMPARE — INDICATOR 
036102 000240 80$: NOP 
036104 000004 1$: SCOPE ;LOOP ? 
856 
857 FEAR RE REKEEE EERE REREEEEREREEEEEEEEEREEKEHERKEEKAKE 
: STEST 27 TEST RESET ATTENTION ‘B' BY DRIVE CLEAR 
 SVERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
zs SEIZING PORT. 
** 
st A, ay EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
°* p ‘ 
-* 
:* B. SEIZE THE DRIVE THROUGH PORT ‘B’ BY WRITING 0°S INTO RMDS. 
-* 
:* (C. ISSUE A DRIVE CLEAR COMMAND. 
*% 
:* D. RELEASE THE DRIVE THRCUGH PORT ‘B’. VERIFY THAT THE ATTENTION 
a BIT FOR PORT *B’ HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
;* "A‘ IS STILL SET. 
-% 
SUISSE IOS ISO IIIIOIIIOUIIOUO OUR OR ta kt RES 
036106 TST27: 
036106 005737 001300 - TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
036112 001406 BEQ c$ :BR IF NOT 
036114 100002 BPL 1$ -BR IF JUST ENTERED TEST 
036116 137 003074 JMP EXEC RETURN & GET NEXT TEST NUMBER 
036122 012737 177777 001300 1$: MOV 4-1 ,KYBCTL :SET SINGLE TEST INDICATOR 
036130 012737 036144 001106 2$: MOV ATEST27,$LPADR ;SETUP SCOPE LOOP ADDRESS 
eetit 012737 036144 001110 rESTO? MOV #TEST27,$LPERR ;SETUP ERROR LOOP ADDRESS 
036144 112737 000027 001102 " MOVB =. #27, $TSTNM ;MOVE #27 TO TEST NUMBER 
036152 012706 001100 MOV ASTACK ,SP ;LOAD THE STACK POINTER 
ass 036156 012737 000012 001176 MOV #10.,$TIMES ;;D0 10. ITERATIONS 
859 


>SET ATTENTION BITS FOR BOTH PORTS 


LF estes 


—__ 
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C2 
12? TEST RESET ATTENTION. 'B' BY DRIVE CLEAR S£@ 0107 
| 036164 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT 64$ 
| 036172 005760 000012 668: TST RMDS (RO) “MAKE SURE DRIVE AVAILABLE 
036176 001775 BEQ 66$ : 
| 012760 177777 000014 MOV #=1,RMER1(RO)  ;FORCE ERRORS 
| 036206 005060 000014 CLR RMER1 (RO) *CLEAR THE ERRORS 
| 036212 013760 001226 000010 MOV PORTB,RMCS2(RO) :SELECT THE OTHER PORT 
| 036220 005760 000012 64$: TST RMDS (RO) :WAIT FOR DRIVE TO TIMEOUT 
036224 001775 BEG 64$ :BR IF DRIVE HASN'T TIMED OUT 
036226 012760 177777 000014 MOV #-i,RMER1(RO)  :FORCE ERRORS ON PORT 65$ 
036234 005060 000014 CLR RMER1 (RO) CLEAR THE ERRORS | 
036240 113760 001224 000010 MOVB = PORTA, RMCS2(RO) ; SELECT PORT '64$'' AGAIN 
| 036246 005760 900012 65$: ‘TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
036252 001775 BEQ 65$ “BR IF DRIVE HASN'T TIMED OuT 
: CONFIRM THAT BOTH ATTENTION BITS ARE SET 
036254 60 001226 000010 MOVB PORTB.RMCS2(RO) ;:SELECT PORT B 
013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
636270 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
036274 016037 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
2 012737 12 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
036310 37, 001122 ADD RO, $BDADR D RH/RM BASE ADDRESS 
036314 012737 001124 MOV HATA,$GDDAT ;WHAT REGISTER SHOULD BE 
036322 013737 001126 001164 MOV SBDDAT,STMPO © ;MOVE REGISTER CONTENTS TO ‘STMPO" 
036330 042737 077777 001164 BIC #°CATA.STMPO :SAVE SPECIFIED BITS 
036336 023737 001164 CMP SGDDAT.STMPO ° : COMPARE THE BITS 
036344 001414 BEQ 67$ “BR IF OK 
036346 013737 001126 001174 MOV SBDDAT . STMP4 §:COPY "BAD DATA’ 
036354 042737 001174 BIC WATA STMPS :CLEAR THE MASKED BITS 
0 053737 001174 001124 BIS $imes, S600 :'OR* WITH GOOD DATA FOR TYPEOUT 
036370 104010 EMT 
036372 005137 001250 COM ERR :SET THE REGISTER COMPARE ERROR INDICATOR 
036376 000240 67$: NOP 
036400 005737 001250 TST CKERR ,  gWAS ATTN BIT FOR PORT B SET ? 
036404 001402 BEQ +6 :BR IF IT 
036406 000137 037600 JMP 1$ :BYPASS REST OF TEST IF NOT 
036412 113760 001224 000010 MOVB PORTA,RMCS2(RO) “:SELECT PORT A 
036420 013737 001224 00124 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
036426 005037 001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
036432 016037 001126 MOV RMDS(RO) .SBDDAT ":GET CONTENTS OF RMDS 
C 012737 2 001122 MOV > -SBDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
0 37. 001122 ADD RO, SBDADR :ADD RH/RM BASE 
036452 012737 1 001124 MOV #ATA,SGDDAT :WHAT REGISTER SHOULD BE 
0 13737 001126 001164 SBDDAT.STMPO — ; MOVE _ REGISTER CONTENTS TO ‘STMPO' 
0 042737 077777 001164 BIC #*CATA.STMPO :SAVE SPECIFIED BITS 
036474 023737 001124 001164 CMP — $GDDAT.$TMPO ° ; COMPARE THE BITS 
036502 001414 BEQ 6 :BR IF OK 
036504 013737 001126 001174 MOV SBDDAT STMP4 §: COPY “BAD DATA 
036512 042737 001174 BIC ATA, $TMP4 >CLEAR THE MASKED BITS 
036520 053737 001174 001124 BIS SIMPL. S$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
036526 104010 EMT 1 
036530 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
036534 000240 69$: NOP 
036536 005737 001250 TST CKERR :WAS ATIN BIT FOR PORT A SET ? 
036542 001402 BEQ +6 “BR IF IT WAS 
. 024544 000137 037600 JMP i$ “BYPASS REST OF TEST IF NOT 
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;SEIZE THE DRIVE THROUGH PORT B 


036550 113760 001226 000010 MOVB — PORTB,,RMCS2(RO) of SRLECT PORT B 
036556 013737 001226 001242 MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDRES'S 
5 0000 CLR :WRITE RMDS 
036570 113760 001224 000010 MOVB § PORTA,RMCS2(RO) “:SELECT PORT A 
036576 013737 001224 001240 MOV PORTA, P TNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
013737 001224 001244 MOV PORTA, OPPRT : ‘OPPOSITE’ PORT ADDRESS 
036612 016037 12 001126 MOV RMDS (RO), SBDDAT iSEE IF DRIVE SEIZED BY PORT B 
0 010037 001122 MOV RO, SBDADR sRH/RM BASE ADDRESS 
036624 062737 12 001122 ADD WRMDS,$BDADR § GENERATE BAD REGISTER ADDRESS 
036632 005037 001124 CLR $GDDAT :REGISTER SHOULD BE ZERO 
036636 023737 001124 001126 CMP SGDDAT,SBDDAT :JS THE REGISTER ZERO 
036644 001403 BEQ 71$ -BR IF IT IS 
036646 104004 EMT 
036650 000137 037600 ai JMP 1$ :BYPASS REST OF THE SUBTEST 
036654 713760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
C 013737 001226 001240 MOV PORTB.PT V T ADDRESS TO LOCATION FOR TYPEOUT 
036670 016037 2 001126 MOV RMDS (RO) SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
036676 042737 001126 BIC #OM! PIP P, $8DDAT LEAR DONT CARE BITS 
704 012737 011700 001124 MOV #MOL !PGM' DPR! DRY! VV.$GDDAT sEXPECTED STATUS 
036712 013737 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
36720 005137 001166 COM STMP1 : COMPLEMENT THE EXPECTED STATUS 
636724 013737 001126 001164 MOV SBDDAT,STMPO §: SAVE THE ACTUAL STA 
36732 043737 001166 001164 BIC STMP1, :CLEAR UNWANTED Biis 
036740 023737 001124 001164 CMP SGDDAT,STMPO ARE THE EXPECTED STATUS BITS SET ? 
036746 001401 BEQ 72$ “BR IF THEY ARE 
036750 104005 EMT 
036752 000240 72$: NOP 
z ISSUE DRIVE CLEAR COMMAND TO PORT B 
036754 012760 060011 0009000 MOV #11.RMCS1(RO)  ;:DO A DRIVE CLEAR COMMAND 
ZVERIFY THAT ATTENTION BIT FOR PORT B CLEARED 
036762 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
036766 016037 12 001126 MOV RMDS(RO).SBDDAT °:GET CONTENTS OF RMDS 
036774 012737 001122 MOV % ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
037002 37 001122 ADD : RH/RM BASE ADDRESS 
037006 005037 001124 CLR AT ‘WHAT REGISTER SHOULD BE 
937012 013737 001126 001164 MOV DAT.STMPO = : MOVE REGISTER CONTENTS TO ‘*STMPO' 
37020 042737 077777 001164 BIC #*CATA,STMPO ;:SAVE SPECIFIED BITS 
037026 023737 001124 001164 CMP SGDDAT.$STMPO —  ; COMPARE THE 
037034 001414 BEQ 73$ F OK 
037036 013737 001126 001174 MOV DAT,STMP4 § : COPY "BAD DATA’ 
37044 042737 001174 BIC HATA, STMPS CLEAR THE MASKED BITS 
037052 053737 001174 001124 BIS STMP4,$GDDAT  : "OR" WITH GOOD DATA FOR TYPEQUT 
37060 104047 EMT 4 
037062 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
037066 00024 73$: NOP 
:RELEASE THE DRIVE FROM PORT B 
037070 113760 001226 000010 MOVB  PORTB,RMCS2(RO) =:SELECT PORT B 
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Ssss 888s 


s VERIFY 


75$: 


76$: 


77$: 


78$: 


79$: 


MOV 
MOV 


CLR 


PORTB,PTNBR 
#13,RMCS1(RO) 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 


#RMDS , SBDADR 


RO, SBDADR ADD T 
#MOL 'PGM! DPR! DRY! VV, $GDDAT 


;MOVE PORT ADDRESS TO LOCATION 7. TYPEOuT 


PORTA, RMCS2(R 7) 


HATA! VV, 


MP< 


: ISSUE RELEASE THROUGH PORT 


;CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 
:FORM THE ADDRESS OF 


nese FOR TYPEOUT 


HE 1/0 BASE ADDRES 


S 
+ ‘eee CONSTANT 


i SELECT PORT 


T THE DRIVE” STATUS REGISTER FROM PORT A. 
DONT CARES 


mpi ; CLEAR 
;COPY IT INTO ‘$TMPO' 


MPO 
PORTB ,RMCS2(RO) 


.STMPS 
'OM, STMP 


79$ 
STMP2 , SBDDAT 


° 
. 


MP3, $BDDA 
PORTA, *RMCS2 (RO) 
STMP1 


#~1 ,RELERR 
#11 >RMCS1 (RO) 
#15, oRMCS1 (RO) 


STMP2 , SBDDAT 
PORTA, PTNBR 


o 


#ATA, $BDDAT 
SGDDAT , SBDDAT 
78$ 


7 
$TMP3 .$BDDAT 


PORTB PT 


#ATA, SBDDAT 
SGDDAT , SBDDAT 
79$ 


: LOOK :P ¥ oo WHEN RMDS READ 


PORT — BITS FROM THE COPY 


; CLEAR 
;SELECT PORT 


“GET THE DRIVE STATUS REGISTER FROM PORT B. 
3 DONT CARES 


; CLEAR 
;COPY IT INTO *$TMP1' 


;CLEAR PORT DEPE 


:BYPASS 
SET UP 


: SEIZING PO « i TEST SHOWS DRIVE NOT IN NEUTRAL 

SEE io EQ 0 FROM PORT A 

s SEIZING PORT IF TEST oe DRIVE NOT IN NEUTRAL 
; "BAD DATA’ yi ERROR TYPE OUT 

:SELECT PORT 

: SEE is 


THE REST OF THE CHECKS 


POSSIBLE BAD DATA FOR ERROR MESSAGE 


STATUS” EQ ZERO FROM PORT B. 
F NOT 


>BR 
;SET ‘RELEASE ERROR® INDICATOR 


; CLEAR 
;RELEAS 


; CHANG 
DON'T 
ALL BI 
:BR IF 


: CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
E PORT NUMBER 


DON’ T 
7SEE IF 
:BR IF 


THE DRIVE 
E THE DRIVE 


PORT NUMBE 
Fe te 3 THE ATTN BIT 
OK FROM PORT A. 


CHECK THE ATIN BIT 
i OK FROM PORT B 


sCHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 


PORTA, RMCS2(RO) 
PORTA,PTNBR 


MOVB 
MOV 


;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;SELEC 


ss 


T PORT A 


NS Se ae 


NDENT BITS FROM THE COPY 
31S a STATUS REGISTER THE SAME FROM BOTH PORTS ? 


; NO 
sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 


881 
914 
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TEST RESET ATTENTION °B’® By DRIVE CLEAR 


0 
037659 


037660 
7 


037666 
037672 
037674 


012760 


001250 
000012 


sift 
Me go 
001126 
077777 
001124 
001126 
100000 
001174 


001250 


177777 


RES FERR VOW 


000010 


000014 


80$: 
1$: SCOPE 


CKERR 


RMDS (RO) , SBDDAT 
$BDADR 


- STMPO 
#“CATA,STMPO 
SGDDAT , STMPO 
80$ 


SBODAT , STMP4 
$ TMP 


HATA, 


$TMP4 , SGDDAT 
50 


CKERR 
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:CLEAR THE ‘CHECK ERROR’ INDICATOR 
;GET CONTENTS OF RMDS 


;FORM REGISTER ADDRESS OF ERROR MESSAGE 
: ADDRESS 


SHOULD BE 
sMOVE REGISTER "_ TO *STMPO’ 

;SAVE SPECIFIED BITS 
‘en IFC THE 

:COPY ‘BAD DATA’ 

‘CLEAR THE MASKED BITS 

:'OR’ WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


;LOOP ? 


STARA AREER AAA EREEEAEEREKREEEEREEE 


RESET ATTENTION ‘A’ BY GO TEST 
i VERIFY THAT THE ‘GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 


: TEST 30 


INTO 


oo “7 
. 


. 
w*+ #@ eee eee eeRe eee 


weg Se Be Be S Seéeebeanvwees 


130: 


1$: MOV 
2$: MOV 


TEST30: 


SEIZING PORT. 


A. SET EACH PORT'S ATTENTION BIT, 
ATTENTION BITS ARE SET. 


aie aoe DRIVE THROUGH PORT ‘A’ BY WRITING 0°S 


ISSUE A NOP COMMAND. 

RELEASE THE FRIVE THROUGH PORT ‘A’. 
ATTENTION BIT FOR PORT ‘A’ IS RESET, 
ATTENTION BIT FOR PORT ‘B' IS STIL SET. 


SERRATE EARAEREEAEEEAREERAKEERARERARRAREAREREARAEEKRAREREKRKE EE 


KYBCTL 
2$ 


EXEC 

4-1 KYBCTL 
#TEST30,$LPADR 
MTEST30.$LPERR 


#30,$TSTNM 
M#STACK,SP 
#10.,$TIMES 


AND VERIFY THAT BOTH 


a + THAT THE 
AND THE 


>PERFORMING ONLY SINGLE TEST ? 
>BR NOT 


IF 
:BR IF JUST eee TESi 
;RETURN & GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
:SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


>MOVE #30 TO TEST NUMBER 
LOAD THE STACK POINTER 
2D0 10. ITERATIONS 


SET ATTENTION BITS FOR BOTH PORTS 


66$: TST 


PORTA, RMCS2(RO) ;SELECT PORT 64$ 
‘gia sMAKE SURE DRIVE AVAILABLE 
#-1,RMERI(RO) ;FORCE ERRORS 





SEQ 0110 
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30 


a ee 
-_—-—-—-.. 


a eine Bee ee 


037702 


037742 
037746 


037750 





000014 
001226 
000012 
177777 

14 


0000 
001224 
000012 


001250 
001250 
041274 


001224 
001224 


F 14 
MACRO VO04.00 4-APR-81 18:06:25 PAGE 10-71 


000010 


000014 
000010 


000010 
001242 


643: 


65$: 


CLR 


RMER1 (RO) ;CLEAR THE ERRORS 
ine ch ae :SELECT THE OTHER PORT 


64$ 
#~-1 ,RMER1 (RO) 

ER1(RO) : CLEAR THE ERRORS 
PORTA,RMCS2(RO) ; SELECT PORT "eas" AGAIN 
RMDS (RO) ;WAIT FOR DRIVE TO TIMEOUT 
65$ 7BR IF DRIVE HASN'T TIMED OUT 


; CONFIRM THAT BOTH ATTENTION BITS. ARE S“T 


67$: 


69$: 


PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 

#RMDS,S$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR :ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 

$ sMOVE REGISTER CONTENTS TO ‘STMPO’ 
#ACATA,STMPO ;:SAVE SPECIFIED BITS 

SGDDAT , STMPO :COMPARE THE BITS 

67$ :BR IF OK 


SBDDAT ,STMP4 :COPY "BAD DATA’ 

#ATA,STMP4 ;CLEAR THE MASKED BITS 

? tal anal :"OR* WITH GOOD-DATA FOR TYPEOUT 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
CKERR WAS ATTENTION SET FOR A?? 

oH ’ . Saeed 


:NO - BYPASS REST OF TEST 
PORTB -RMCS2 (RO) sSELECT PORT B 
PORTB VE PORT ADDRESS TO LOCATION FOR TYPEOQUT 


CKERR :CLEAR THE “CHECK ERROR’ INDICATOR 
RMDS (RO) gel 3GET CONTENTS OF RMDS 

#RMDS , $BD sf REGISTER ADDRESS OF ERROR MESSAGE 
RO, $8DADR D RH/RM BASE ADDRESS 

HATA, SGDDAT “WHAT REGISTER SHOULD BE 

SBDDAT ,.STMPO :MOVE REGISTER CONTENTS TO ‘$TMPO' 
#*CATA,STMPO : SAVE SPECIFIED BITS 

SGDDAT ,S$TMPO : COMPARE THE BITS 

69$ J IF OK 

SBDDAT.STMP4 ;COPY "BAD DATA’ 

MATA, STMPS :CLEAR THE MASKED BITS 

daca ;'OR* WITH GOOD DATA FOR TYPEOUT 
CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 
= As Fi ATTENTION SET FOR 8?? 

.* é 

1$ 3NO = BYPASS REST OF TEST 


7SEIZE THE DRIVE THROUGH PORT A 


MOVB 


MOV 


PORTA,RMCS2(RO) ;SELECT PORT A 
PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 


—<—<aes 3 eee ee ee 


> me ees ee ee 


-—-———--- 


_ Estee orate 


ee ee 
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RESET ATTENTION SEQ 01°2 
040260 5 000012 CLR RMDS (RO) sWRITE RMDS 
0264 113760 001226 000010 MOVB PORTB, 8S Saaaa ;SELECT PORT B 
040272 013737 001226 001240 MOV PORTB,PTNBR move PORT ADDRESS e io FOR TYPEOUT 
0403500 013737 001226 001244 MOV PORTB,OPPRT ; ‘OPPOSITE’ PORT RESS 
0 016037 Q00012 001126 MOV RMDS (RO) , oe i SEE IF DRIVE SEIZED BY PORT A 
040314 010037 001122 MOV RO, $BDA H/RM BASE ADDRESS 
040320 062737 000012 001122 ADD #RMDS , ,SBDADR : GENERATE BAD REGISTER ADDRESS 
005037 001124 CLR $GDDAT ;REGISTER SHOULD BE ZERO 
040332 023737 001124 001126 CMP S$GDDAT,SBDDAT ;1S THE a lee ZERO 
040340 001403 BEQ 71% ;BR IF IT IS 
040342 104004 EMT % 
ertoes 000137 041274 "6 JMP 1$ sBYPASS REST OF THE SUBTEST 
040350 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
040356 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
0 016037 000012 001126 MOV RMDS (RO), seen SEE IF SEIZING PORT SEES CORRECT STATUS 
040372 042737 020001 [601126 BIC #OM!PIP, $BDDAT ;CLEAR DONT CARE BITS 
00 012737 011700 001124 MOV #MOL !PGM!DPR! DRY! VV, $GDDAT sEXPECTED STATUS 
040406 0137357 001124 001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
640414 005137 001166 COM $TMP1 : COMPLEMENT THE with STATUS 
040420 013737 001126 001164 MOV $BDDAT , STMPO :SAVE THE ACTUAL STATUS 
040426 043737 001166 001164 BIC $TMP1 ,STMPO ;CLEAR UNWANTED BITS 
040434 023737 001124 001164 CMP SGDDAT , $TMPO ;ARE THE EXPECTED STATUS BITS SET ? 
040442 001401 BEQ 72s ;BR IF THEY ARE 
040444 104005 EMT 5 
040446 000240 723: NOP 
: ISSUE NOP COMMAND TO PORT A 
040450 012760 000001 000000 MOV #1,RMCS1(RO) 
;VERIFY THAT ATTENTION FOR PORT A CLEARED 
040456 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
040462 016037 000012 001126 ~ MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
040470 012737 000012 001122 MOV #RMDS .SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
040476 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
040502 005057 001124 CLR SGDDAT :WHAT REGISTER SHOULD BE 
040506 013737 001126 001164 MOV SBDDAT ,STMPO >MOVE REGISTER CONTENTS TO ‘STMPO" 
040514 042737 077777 001164 BIC #°CATA,STMPO : SAVE SPECIFIED BITS 
040522 023737 001124 001164 CMP SGDDAT , STMPO > COMPARE THE BITS 
C40530 1414 BEQ 73$ :BR IF OK 
040532 0137357 001126 001174 MOV SBDDAT ,STMP4 :COPY “BAD DATA‘ 
040540 042737 001174 BIC HATA, STMP4 ;CLEAR THE MASKED BITS 
040546 053737 001174 001124 BIS STMP4 ,SGDDAT ;*OR* WITH GOOD DATA FOR TYPEQUT 
040554 104061 EMT 61 
040556 005137 001250 COM CKERR :SET TRE REGISTER COMPARE ERROR INDICATOR 
040562 000240 73$: NOP 
sRELEASE THE DRIVE FROM PORT A 
0564 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
040572 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 


sVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


2-5 + ee. eee eT —_———————— 
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001164 


001170 
001224 
100000 
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001172. 


001226 
100000 
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GO TEST 


001126 
001240 
000010 


001240 
001126 
000010 
001254 
000000 
000000 
001126 


001126 


000010 
001240 


001126 
001122 


001124 


75$: 


76$: 


77$: 


78$: 


79$: 
: VERIFY 


re Ee Le | ee 


CLR RELERR 

MUV #RMDS , ee 
ADD RO, $BDAD AD 

MOV #MOL POM! DPR! DRY! WV, $GDDAT 


;CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 

; FORM THE ADDRESS OF RMDS FOR TYPEOUT 
D THE I/0 BASE ADDRESS 

_— CONSTANT 


MOVB PORTA, RMCS2(RO) :SELECT PORT 
MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL'OM, $TMP? CLEAR DONT CARES 

STMP2, $TMPO :COPY IT INTO ‘$TMPO’ 


MOV 
BIC #ATA'VV,STMPO :CLEAR PORT — BITS FROM THE COPY 


MOVB  PORTB,RMCS2(RO) :SELECT PORT 

MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIP'WRL'OM,$TMP3 ;CLEAR DONT CARES 

MOV $TMP3,$1MP1 >COPY IT INTO *$TMP1° 


BIC #ATA'VV,$TMP1 
CMP Lng MPO, $TMP1 


;CLEAR PORT DEPENDENT BITS FROM THE COPY 
;1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


BNE 5 ;BR IF NOT 
TST $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
— _ ;BR IF NOT 


sBYPASS THE REST OF THE CHECKS 


9$ 
MOV tn So ol ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


MOV PORTB ,PTNB sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ;SELECT PORT 86. 

TST $STMPO +SEE IF STATUS EQ 0 FROM PORT A. 

BEQ 76$ IF ZERO 


SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
; "BAD DATA’ $0 ERROX TYPE OUT 

PORTA.RMCS2(RO) :SELECT PORT 

TST STMP1 7 SEE IF STATUS EQ ZERO FROM PORT B. 


BNE 77$ :BR 
MOV #~1 ,RELERR :SET ‘RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 

;RELEASE THE DRIVE 


MOV -* init 
MOV $TMP2 , SBDDAT sLOOK FOR BIT FAILURES WHEN RMDS READ 
3¢ E PORT NUMBER 
:DON'T CHECK THE ATTN BIT 


CMP SGDDAT,$BDDAT ALL BITS Ok ? 
BEQ 78$ 7BR IF OK FROM PORT A. 


EMT 7 
MOV STMPS, ony :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV TB, E PORT NUMBER 


; CHANG 
BIC BATA, $BDDAI :DON'T CHECK THE ATIN BIT 
CMP $GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
BEQ a :BR IF OK 


THAT ATTENTION FOR PORT B IS STIL SET 


PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTS ,PT sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR >CLEAR THE ‘CHECK ERROR" INDICATOR 

MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

MOV #PPDS . SBDA DR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDAD ;ADD RH/RM BASE ADDRESS 

MOV HATA, SGDDAT ;WHAT REGISTER SHOULD BE 


i 


ST 


CEpeao RM05/3/2 DU POR TST 1 
T30 RESET ATTENTION ‘A* BY 


PRERRRRRERE 


RRERERRRERER 
PRRSR SRSA 


ERA 
OM 


le ee ee el ee eed eed eed 
RRR Win 
SIE 

Ros 


RRRRRRRRR 
3 


ASfLONMAO 


013737 
042737 
023737 
001414 
013737 
042737 
053737 
104062 
005137 
000240 
000004 


012737 
112737 


012706 
012737 


012760 


001126 
077777 
001124 
001126 
100000 
001174 


001250 


001300 


003074 
177777 
34 


177777 
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GO TEST 


000010 


000014 
000010 


000014 





MOV $BDDAT,$TMPO =: MOVE _REGISTER CONTENTS TO *STMPO* 

BIC #°CATA.$IMPO :SAVE SPECIFIED Bit 1S 

CMP SGDDAT.$TMPO ° ;COMPARE THE BITS 

BEQ 80$ “BR IF OK 

MOV SBDDAT,STMP4 COPY ‘BAD DATA’ 

BIC HATA, STMPG “CLEAR THE MASKED BITS 

81s SMPs $GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 

COM aa ;SET THE REGISTER COMPARE ERROR INDICATOR 
80$: NOP a 
1$: SCOPE 


SERRA RARER EAE RARER ERREEEERERERERREEHEEHEEHHE 


: #TEST 31 RESET ATTENTION 'B' BY GO TEST 
te * VERIFY THAT THE *GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
: SEIZING PORT. 
-* 
>* A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
:* ATTENTION BITS ARE SET 
:* B. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0°S 
:* INTO RMDS. 
:* C.  JSSUE A NOP COMMAND. 
** 
:* D. RELEASE THE FRIVE THROUGH PORT 'B’. VERIFY THAT THE 
:* ATTENTION BIT FOR PORT 'B’ IS RESET. AND THE 
* ATTENTION BIT FOR PORT ‘A’ IS STIL SET. 
*& 
OU TITII TIAA TELL LE ETE TTT TTT TTT TTT TTT TTT CTT TTT TOOT TTee 
1ST31: 
TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ =BR IF NOT 
BPL 1$ “BR IF JUST ENTERED TEST 
JMP EXEC [RETURN & GET NEXT TEST NUMBER 
1$: MOV #~1,KYBCTL :SET SINGLE TEST INDICATOR 
2$: MOV #TEST31,$LPADR :SETUP SCOPE LOOP ADDRESS 
saci MOV #TEST31.$LPERR :SETUP ERROR LOOP ADDRESS 
" MOVB «#31. STSTNM ;MOVE #31 TO TEST NUMBER 
MOV #STACK, SP LOAD THE STACK POINTER 
MOV #10. ,.$TIMES °:DO 10. ITERATIONS 
:SET ATTENTION BITS FOR BOTH PORTS . 
MOVB _— PORTA. RMCS2(RO) : SELECT PORT 64$ 
66$: | Ist RMDS (RO) MAKE SURE DRIVE AVAILABLE 
MOV #~1,RMER1(RO) = :FORCE ERRORS 
CLR 1(RO “CLEAR THE ERRORS 


RMER ) 
MOV PORTB,RMCS2(RO) 
64$: TST ‘ RMDS (RO) 

64$ ; | 
MOV #-1,RMER1 (RO) 


; SELECT THE OTHER PORT 

WAIT FOR DRIVE TO TIMEOUT 
“BR IF DRIVE HASN'T TIMED QUT 
:FORCE ERRORS ON PORT 65% 


te ti 
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RESET ATTENTION ‘B° BY GO TEST SEQ 0115 
041424 005060 000014 CLR RMER1 (RO) ;CLEAR THE ERROR 
041450 113760 G01224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT yore AGAIN 
041436 005760 000012 - 65$: TST RMDS (RO) WAIT FOR DRIVE TO TIMEOUT 
041442 001775 BEQ 65$ ‘BR IF DRIVE HASN'T TIMED OuT 

; CONFIRM THAT BOTH ATTENTION BITS ARE SET 
041444 113760 001226 000010 MOV8 PORTB,RMCS2(RO) ;SELECT PORT B 
041452 013737 001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
041460 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
041464 016037 000012 001126 MOV RMDS (RO) -SBDDAT ;GET CONTENTS OF RMDS 
041472 012737 “000012 001122 MOV #RMDS,$BDADR ;FORM REGISTER ae ate OF ERROR MESSAGE 
041500 0037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
041504 012737 001124 MOV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
041512 013737 26 001164 MOV SBDDAT , STMPO sMOVE REGISTER CONTENTS TO ‘$TMPO’ 
041520 042737 077777 001164 BIC #“CATA,$STMPO ; SAVE a BITS 
041526 023737 001124 001164 CMP SGDDAT , STMPO ; COMPARE THE BITS 
041534 001414 BEQ 67$ :BR IF OK 
041536 013737 001126 001174 MOV SBDDAT , STMP4 :COPY "BAD DATA’ 
041544 2737 100000 001174 BIC HATA, STMP4 ;CLEAR THE MASKED BITS 
041552 053737 001174 001124 BIS $STMP4 ,$GDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
041560 104010 EMT 10 
041562 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
041566 000240 67$: NOP 
041570 005737 001250 TST CKERR- :WAS A ATTENTION SET FOR B?? 
041574 001402 BEQ - +6 ‘Vest: 
041576 000137 042770 : JMP 1$ :NO - " BYPASS sd OF TEST 
041602 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
941610 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
041616 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
041622 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ;GET CONTENTS OF RMDS 
041630 012737 000012 001122 MOV  #RMDS,SBDADR ;:FORM ee ADDRESS OF ERROR MESSAGE 
041636 37 001122 ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
041642 012737 001124 MOV #ATA,$GDDAT ;WHAT REGISTER SHOULD BE 
041650 013737 001126 001164 MOV SBDDAT ,STMPO sMOVE REGISTER CONTENTS TO ‘STMPO" 
041656 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
041664 023737 001124 001164 CMP SGDDAT , STMPO : COMPARE THE BiTS 
041672 001414 BEQ 69$ ;BR IF OK 
041674 013737 001126 001174 MOV SBDDAT ,STMP4 ;COPY “BAD DATA’ 
041702 2737 001174 BIC HATA, STMP4 ;CLEAR THE MASKED BITS 
041710 053737 001174 001124 BIS STMP4 , SGDDAT :*OR* WITH GOOD DATA FOR TYPEQUT 
C41716 104010 EMT 10 
041720 005137 001250 COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
041724 000240 — 69%: NOP , 
041726 005737 001250 TST CKERR ;WAS ATTENTION SET FOR A?? 
041732 001402 BEQ +6 EVES: 
041734 000137 042770 JMP 1$ :NO - BYPASS REST OF TEST 

sSEIZE THE DRIVE THROUGH PORT B 
041740 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
041746 013737 001226 001242 | MOV PORTS ,SEIZPT + STORI: SEIZING PORT*S ADDRESS 
041754 005060 000012 CLR RMDS (RO) ;WRITE RMDS 
041760 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT 
041766 013737 001224 001240 MOV PORTA ant ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
041774 013737 001224 001244 MOV PORTA,OPP "OPPOSITE’ PORT ADDRESS 
042002 916037 000012 001126 - MOV RMDS(RO), SBDDAT ;SEE iF DRIVE SEIZED BY PORT B 


SS A ~- 


a ee ee ee 


* ee RMOS/3/2 DU POR TST 1 


RESET ATTENTION ‘*B* BY 
042010 010037 001122 
000012 


2 
042142 000240 


042144 012760 000001 
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GO TEST 


SEQ 0116 
MOV RO, SBDADR ;RH/RM BASE ADDRESS : 
001122 ADD #RMDS , , SBDADR ; GENERATE BAD REGISTER ADDRESS 
CLR $GDDAT ‘REGISTER SHOULD BE ZERO 
001126 CMP S$GDDAT,$BDDAT :1S THE REGISTER ZERO 
BEQ is :BR IF IT IS 
vi JMP 1$ :BYPASS REST OF THE SUBTEST 
i>: 
000010 MOVB  PORTB,.RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001126 MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
001126 BIC #OM'PIP, $BDDAT ;CLEAR DONT CARE BITS 
001124 MOV #MOL!PGM'DPR!DRY!VV,$GDDAT ; EXPECTED STATUS 
001166 MOV SGDDAT,$TMP1 ;USE GOOD DATA AS A MASK 
COM $TMP1 : COMPLEMENT THE EXPECTED STATUS 
001164 MOV SBDDAT,$TMPO  :SAVE THE ACTUAL STATUS 
001164 BIC $TMP1,$TMPO “CLEAR UNWANTED BITS 
001164 CMP SGDDAT,$TMPO = : ARE THE EXPECTED STATUS BITS SET ? 
BEQ 72$ “BR IF THEY ARE 
EMT 5 
723: NOP 
: ISSUE NCP COMMAND TO PORT B 
000000 MOV #1,RMCS1(RO) 
:VERIFY THAT ATTENTION FOR PORT B CLEARED 
CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS 
001122 MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
| CLR SGDDAT :WHAT REGISTER SHOULD BE 
001164 MOV SBDDAT.STMPO = ;MOVE REGISTER CONTENTS TO ‘STMPO’ 
001164 BIC #°CATA,STMPO :SAVE SPECIFIED BITS 
001164 CMP SGDDAT.STMPO ~~ ;COMPARE THE BITS 
BEQ 73$ IF OK 
001174 MOV ‘S$BDDAT,STMP4 = «: COPY “BAD DATA’ 
001174 BIC WATA, STMP4 =CLEAR THE MASKED BITS 
001124 BIS STMPS ,SGDDAT  ;:'OR* WITH GOOD DATA FOR TYPEOUT 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
733: NOP 
;RELEASE THE DRIVE FROM PORT B 
000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B 
001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
000000 MOV #13,RMCS1(RO) :ISSUE RELEASE THROUGH PORT B 
: VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR -CLEAR THE ‘RELEASE ERROR * INDICATOR 
001122 MOV #RMDS , SBDADR ; FORM THE ADDRESS OF RMDS FOR TYPEQUT ; 
ADD RO, SBDADR ADD THE I/O BASE ADDRESS 
001124 MOV #MOL | PGM'DPR'DRY VV, S$GDDAT :COMPARISON CONSTANT 
000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 


* 
‘ 
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MACRO 
13} RESET ATTENTION 'B’ BY GO TEST SEQ 0117 
042334 016037 12 001170 MOV RMDS(RO).STMP2 | :GET THE DRIVE STATUS REGISTER FROM PORT A. 
2342 042737 024001 001170 BIC #PIP'WRL'OM,$TMP2 DONT CARES 
042350 0137387 001170 001164 MOV $TMP2,$TMPO ; COPY IT’ INTO '$TMPO' 
2356 042737 100100 001164 BIC HATA! VV, $TMP LEAR PORT DEPENDENT BITS FROM THE COPY 
2364 113760 001226 000010 MOVB PORTE -RMCS2(RO) ; ‘SELECT PORT 
042372 016037 000012 001172 MOV RMDS(RO), ‘GET THE DRIVE STATUS REGISTER FROM PORT B. 
2400 042737 024001 001172 BIC #PIP'WRL'OM,$TMP3 CLEAR DONT CARES 
042406 013737 001172 001166 MOV STMP3, :COPY IT INTO °$TMP1° 
042414 042737 100100 001166 BIC HATA'VV,STMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
04242 025737 001164 001166 CoP STMPO. TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
042432 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
36 001045 BNE 77$ ‘BR IF NOT 
042440 104046 EMT 46 
042442 000137 042642 JMP 79$ ;BYPASS THE REST OF THE CHECKS 
042446 013737 001170 001126 75%: MOV $TMP2, SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
042454 013737 001226 001240 MOV T ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
2 113760 001226 0 PORTA, RACES (RO) :SELECT PORT B. 
042470 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
042474 001414 BEQ 76$ IF ZERO 
042476 013737 001224 001240 MOV PORTA,PTNBR ? SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
042504 013737 001172 001126 MOV STMP3,$BDDAT _ ;:'BAD DATA’ FOR ERROR TYPE OUT 
042512 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
042520 005737 001166 | TST $TMP1 SEE IF STATUS EQ ZERO FROM PORT B. 
042524 001012 BNE 77$ F NOT 
042526 012737 177777 001254 76$: MOV #~1,RELERR “SET "RELEASE ERROR’ INDICATOR 
34 012760 000011 0 MOV #11,RMCS1(RO)  :CLEAR THE DRIVE 
042542 012760 000073 000000 MOV #13.RMCS1(RO)  =RELEASE THE DRIVE 
042550 104026 EMT 26 
042552 013737 001170 001126 77$: MOV STMP2, SBDDAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
042560 013737. 001224 001240 MOV T CHANGE PORT 
042566 042737 100000 001126 BIC HATA, SBopat “DON'T CHECK THE ATIN BIT 
042574 023737 001124 001126 CMP SGDDAT,$BDDAT :ALL BITS OK ? 
042602 001401 BEQ 78$ :BR IF OK FROM PORT A. 
042604 104007 EMT 7? 
042606 013737 001172 001126 78$: MOY STMP3, SBDDAT : CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
042614 013737 001226 001240 MOV PORTB,PTNBR ;CHANGE PORT NUMBER 
042622 042737 100000 001126 BIC MATA, $BDDAT =DON'T CHECK THE ATTN BIT 
042630 023737 001124 001126 CMP . $GDDAT,S$BDDAT :SEE IF READ OK FROM PORT B. 
042636 001401 BEQ 79$ “BR IF OK 
042640 104007 EMT 7 
042642 000240 79$: NOP 
:VERIFY THAT ATTENTION FOR PORT A IS STIL SET 
042644 113760 001224 000010 MOVB  §PORTA,RMCS2(RO) :SELECT PORT A 
042652 013737 001224 001240 MOV PORTA.PT :MOVE. PORT ADDRESS TO LOCATION FOR TYPEQUT 
042 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR' INDICATOR 
042 016037 12 001126 MOV RMDS(RO),$BDDAT ':GET CONTENTS OF RMDS 
042672 012737 12 001122 MOV ARMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
042700 37. 001122 ADD RO, $BDAD ADD RH/RM BASE ADDRESS 
2704 012737 1 001124 MOV HATA, SEDDAT “WHAT REGISTER SHOULD BE 
042712 013737 001126 001164 MOV SBDDAT,$T :MOVE REGISTER CONTENTS TO 'S$TMPO' 
042720 042737 077777 001164 BIC #*CATA.$STMPO :SAVE SPECIFIED BITS 
042726 023737 001124 001164 CMP $GDDAT,$TMPO — ; COMPARE THE BITS 
042734 001414 BEQ 80 “BR IF OK 
042736 013737 001126 001174 MOV SBDDAT,$TMP4 § :COPY ‘BAD DATA’ 


MRBO RMO5S/3/2 D 
RESET ATTE 
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042772 

77e 
042776 
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012737 


0 112737 


012706 
012737 


113760 
005760 


U_ POR T 
NTION ° 
042737 

053737 
104062 
005137 
000240 
000004 


ST 1 
B’ BY 
100000 
001174 
001250 


001300 


001224 
000012 


177777 
000014 
001226 
000012 


177777 
000014 
001224 
000012 
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000014 
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GO TEST 


BIC HATA, STMPG :CLEAR THE MASKED BITS 
gs STMPA  SGDDAT > OR’ WITH GOOD DATA FOR TYPEQUT 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
80$: NOP 
1$: SCOPE 
CRRA AAR AAA ERERAKRHRAERRARRRHERREHEEREERHEKEHEE REE 
: TEST 32 TEST RESET ATTENTION 'A* & 'B' BY MASSBUS INIT 
: VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
: DRIVE IS IN NEUTRAL. 
-* 
:* A. SET THE ATTENTION BITS FOR BOTH PORTS. 
- 
;* B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 
-* 
7* C. Issue A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 
** . . 
; «Sse eeag ine enaenned end cenenabanstetbennetenerencececesscoses 
1ST32: 
TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 
BEQ 2$ “BR IF NOT 
BPL 1$ “BR IF JUST ENTERED TEST 
JMP EXEC :RETURN & GET NEXT TEST NUMBER 
1$: MOV #~1,K :SET SINGLE TEST INDICATOR 
2$: MOV WTESTSO. — :SETUP SCOPE LOOP ADDRESS 
laa MOV #TEST32.$LPERR :SETUP ERROR LOOP ADDRESS 
' MOVB #32. $TSTNM ;MOVE #32 TO TEST NUMBER 
MOV #STACK, SP LOAD THE STACK POINTER 
MOV #10. STIMES “DO 10. ITERATIONS 


;SET ATTENTION BITS FOR BOTH PORTS 


MOVB = PORTA, RMCS2(RO) ;SELECT PORT 64$ 
66S: TST MDS (RO) :MAKE SURE DRIVE AVAILABLE 
MOV = #=1, RMERT(RO) —; FORCE ERRORS 
CLR - RMER1(RO) CLEAR THE ERRORS 
MOY PORTB-RMCS2(RO) SELECT THE OTHER PORT 
64$: TST — RMDS(RO) WAIT FOR DRIVE TO TIMEOUT 
BEQ «6 4$ IF DRIVE HASN'T TIMED OUT 
MOV #=1_,RMER1(RO)  :FORCE ERRORS ON PORT 6 
CLR  —- RMER1 (RO :CLEAR THE ERRORS, 
mo PORTA RMCS2(RO) ;SELECT PORT ''64S'* AGAIN 
65$: TST — RMDS(RO) WAIT FOR DRIVE TO TIMEOUT 
BEQ :BR IF DRIVE HASN'T TIMED OUT 


: CONFIRM THAT BOTH ATTENTION BITS ARE SET 


MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
MOV PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR :CLEAR THE ‘CHECK ERROR" INDICATOR 


| aaa RMO5/3/2 DU POR TST 1 


mM 


TEST RESET ATTENTION ‘A’ & 'B* BY MASSBUS INI 


043160 
043166 


016037 
012737 
060037 





000012 
000012 
001122 
100000 
001126 
077777 
001124 
001126 
100000 
001174 
001250 
001250 
044246 


001250 
044246 


001254 
000012 


001164 
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Nm 
Nm 


Ses Ssss $8 
— 3 —3 —_— —3 2 2 — —3 
— —) —2 — 3 -2) — —2 
AOowno 
i a a 


NNN 
5 a 


000010 
001240 


001126 
001122 


001164 
4 


001164 


001174 
001174 
001124 


001122 


001166 


67$: 


69$: 


; VERIFY 


MOV RMDS (RO) sSBDDAT :GET CONTENTS OF RMDS 
MOV #RMDS , $BDADR REGISTER ADDRESS OF ERROR MESSAGE 
ADD R ADDR RM BASE ADDRESS 
MOV HATA,$GDDAT ; WHAT REGISTER SHOULD BE 
MOV DDAT,$TMPO ;MOVE REGISTER CONTENTS TO ‘STMPO' 
BIC #*CATA,$TMPO ;SAVE SPECIFIED BITS 
CMP SGDDAT,S$TMPO ~~ ; COMPARE THE . 
BEQ 7$ IF OK 
MOV DDAT.$TMP4 COPY ‘BAD DATA’ 
BIC HATA, $TMP4 ;CLEAR THE MASKED BITS 
als STMPS ,SGDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
CoM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR : WAS ATTN BIT FOR PORT A SET ? 
BEQ +6 ;BR IF IT 
JMP i$ . “BYPASS REST 108 TEST IF NOT 
MOVB  PORTB.RMCS2(RO) °;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
MOV RMDS(RO) ,$BDDAT —;GET CONTENTS OF RMDS 
MOV #RMDS , $BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, D RH/RM BASE ADDRESS 
MOV HATA.SGDDAT WHAT REGISTER SHOULD BE 
MOV SBDDAT ,$T :MOVE REGISTER CONTENTS TO ‘STMPO’ 
BIC #°CATA,$TMPO ;:SAVE SPECIFIED BITS 
CMP SGDDAT.$TMPO —  ; COMPARE THE BITS 
BEQ 69$ : 
MOV SBDDAT,$TMP4 =: COPY ‘BAD DATA’ 
BIC HATA, $TMP4 :CLEAR THE MASKED BITS 
81s STMPS ,SGDDAT :'OR' wITH GOOD DATA FOR TYPEOUT 
com CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
TST CKERR :WAS ATTN BIT FOR PORT B SET ? 
BEQ +6 :BR IF IT WAS 
JMP i$ :BYPASS REST OF TEST IF NOT : 
THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
MOV #RMDS.SBDADR §:FORM THE ADDRESS OF RMDS FOR TYPEOQUT 
ADD -RO, $BD :ADD THE 1/0 BASE ADDRESS 
MOV #111700,$GDDAT =COMPARSION CONSTANT 
MOVB TA, RO) :SELECT PORT A. 
MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
BIC #PIP!WRL'OM, $TMP :CLEAR DONT CARES 
MOV MP2, $T :COPY IT INTO ‘$TMPO' 
BIC HATA! VV,$T :CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
- MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIP'WRL ‘OM, :CLEAR DONT CARES 
MOV $TMP3, $TMP -COPY IT INTO ‘$TMP1' 
BIC HATA'VV,$TMP1 =CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP STMPO, ST :1S THE ygtATus REGISTER THE SAME FROM BOTH PORTS ? 
TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 


_—— - -—— _- - 


B 15 
1 MACRO VO4.00 4-APR=-B8! 18:06:25 PAGE 10-80 


CZRMRBO RMOS/3/2 DU POR TST 
ro TEST RESET ATTENTION ‘A’ & °° BY MASSBUS INIT 

043570 001045 BNE 73$ ;BR If NOT 
043572 104046 EMT 46 
043574 000137 043760 MP 75$ ;BYPASS THE REST OF THE CHECKS 
043600 013737 001170 001126 71%: MOV STMP2,SBDDAT  ;:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
043606 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
043614 113760 001226 000010 MOVB § PORTB.RMCS2(RO) SELECT PORT B. 
043622 005737 001164 TST $TMPO 7SEE IF STATUS EQ 0 FROM PORT A 
04 001414 BEQ ;BR IF ZERO 
043630 013737 001224 001240 MOV PORTA, PTNBR EIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
043636 013737 001172 001126 MOV STMP3.$BDDAT : "BAD DATA’ FOP ERROR TYPE OUT 
043644 113760 001224 000010 MOVB §§ PORTA, RMCS2(RO) :SELECT PORT 
043652 005737 001166 TST $TMP1 : SEE IF STATUS’ EQ ZERO FROM PORT B. 
043656 001012 BNE 73$ :BR IF NOT 
043660 012737 177777 0012546 72%: MoV #-1,RELERR 7SET "RELEASE ERROR’ INDICATOR 
043666 012760 000011 000000 MOV “i] /RMCS1(RO) [CLEAR THE DRIVE 
043674 012760 000013 000000 V #13.RMCS1(RO)  [:RELEASE THE DRIVE 
043702 104026 EMT 
043704 013737 001170 001126 73$: MoV STMP2,$BDDAT  =;LOOK FOR BIT FAILURES WHEN RMDS READ 
043712 013737 001224 001240 MOV TA.P 7¢ PORT NUMBER 
043720 023737 001124 001126 CMP SGDDAT, PSEDDAT TALL BITS OK ? 
043726 00140 BEQ 74$ [BR IF OK FROM PORT A. 
043730 104 EMT 7 
043732 013737 001172 001126 74$: MoV STMP3,SBDDAT —§ ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
043740 013737 001226 001240 MOV PORTB,PTNBR : CHANGE PORT NUMBER 
043746 023737 001124 001126 CMP SGDDAT,SBDDAT :SEE IF READ Ok FROM PORT B. 
043754 001401 75$ “BR IF OK 
043756 104007 EMT 
043760 000240 75$: 
043762 005737 001254 TST RELERR :WAS DRIVE IN NEUTRAL ? 

66 001402 BEQ .+6 7BR IF IT WAS 
043770 137 044246 JMP i$ :BYPASS RESET OF TEST 

:1SSUE THE MASSBUS INIT 
043774 012760 000040 000010 MOV #CLR,RMCS2(RO) ;ISSUE A MASSBUS INIT 
;CHECK THE ATTENTION BITS OF BOTH PORTS 

044002 113760 001224 000010 MOVB = PORTA, RMCS2 (RO) >SELECT PORT A 
044010 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044016 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR' INDICATOR 
044022 016037 000012 001126 ~ MOV RMDS(RO),S$BDDAT ':GET CONTENTS OF RMDS 
044030 012737 000012 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
044036 060037 001122 ADD RO, $BDADR RH/RM BASE ADDRESS 
044042 005037 001124 CLR SGDDAT ‘WHAT REGISTER SHOULD BE 
044046 013737 001126 001164 MOV SBDDAT.STMPO § :MOVE REGISTER CONTENTS TO "STMPO' 
044054 042737 7 001164 BIC #*CATA,STMPO ;:SAVE SPECIFIED BITS 

062 023737 001124 001164 CMP SGDDAT,$TMPO ~ : COMPARE THE 

070 00141 BEQ 7 “BR IF OK 
044072 013737 001126 001174 MOV S$BDDAT,.$TMP4 COPY "BAD DATA’ 

00 042737 001174 BIC HATA, STMPG : CLEAR THE MASKED BITS 

06 053737 001174 001124 BIS STMP4 , $GDDAT -*OR' WITH GOOD DATA FOR TYPEOUT ' 
044114 104051 EMT 8) 
044116 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
044122 000240 76$: NOP 
044124 113760 001226 000010 MOVB § PORTB.RMCS2(RO) ;SELECT PORT B 
044132 013737 001226 001240 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
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012737 


CKERR 
RMDS (RO) ,SBDDAT 
#RMDS,SBDADR ;:FORM R 


$8D 
#ACATA, STMPO 
SGDDAT , STMPO 
78$ 


SBDDAT, STMP4 
HATA, $TMP4 
STMPS, $GDDAT 


CKERR 
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;CLEAR THE ‘CHECK ERROR’ INDICATOR 
;GET CONTENTS OF RMDS 
REGISTER ADDRESS OF ERROR MESSAGE 

:;ADD_RH/RM BASE ADDRESS 

[WHAT REGISTER SHOULD BE 

:MOVE REGISTER CONTENTS TO ‘STMPO* 
;SAVE SPECIFIED BITS 

COMPARE THE BITS 


7BR IF OK 

:COPY “BAD DATA’ 

; CLEAR THE MASKED BITS 

;'OR* WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


;LOOP ? 


SEERA AAAAKREEAAERERERREERERERRAERREREREREEE 


RESET ATTENTION ‘A* & 'B' BY RMAS 


< #VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
*APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 


SET THE ATTENTION BITS FOR BOTH PORTS. 
VERIFY THE DRIVE IS IN NEUTRAL. 


WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY r 
THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 


#TEST33,$LPERR 


#33 ,$TSTNM 
A#STACK , SP 
#2. ,$T!I S 


SEAR AERERERAAAERAERAAEAAREAEEERAEKEEEAEEEDAEERERKEERKERES 


KYBCTL 
2 , 


:PERFORMING ONLY SINGLE TEST ? 
:BR IF NOT 


:BR m4 JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 
SET USINGLE TEST INDICATOR 

: SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


;MOVE #33 TO TEST NUMBER 
;LOAD THE STACK POINTER 
3:DO 2. ITERATIONS 


:SET ATTENTION BITS FOR BOTH PORTS 


TST 1 MACRO v04.00 
TEST RESET ATTENTION °A* & °B* BY MASSAUS ! 
001250 CLR 
000012 001126 MOV 
000012 001122 MOV 
001122 ADD 
001124 CLR 
001126 001164 MOV 
077777 001164 BIC 
001124 001164 Ha 
001126 001174 MOV 
1 001174 BIC 
001174 0017124 BIS 
EMT 
001250 COM 
78$: NOP 
1$: SCOPE 
: HTEST 33 
- 
:* A. 
7,* 
:* B. 
se ¢. 
+ 
1$133: 
001300 TST 
BEQ 
BPL 
3074 JMP 
177777 001300 18: MOV 
044306 001106 2$: MOV 
044306 001110 MOV 
TEST33: 
000033 001102 MOVB 
001100 MOV 
000002 001176 MOV 
001224 000010 MOVB 
000012 66$: it 
177777 900014 MOV 
000014 CLR 
001226 000010 MOV 
000012 64$: i ad 
177777 000014 MOV 


012760 





PORTA,RMCS2(RO) ;SELECT PORT 64$ 

— :MAKE SURE DRIVE AVAILABLE 
#-1,RMER1(RO) ;FORCE ERRORS 

RMER1 (RO) >CLEAR THE ERRORS 

PORTB ,RMCS2(RO) SELECT THE OTHER PORT 

RMDS (RO) WATT FOR DRIVE TO TIMEQUT 
64$ “BR IF DRIVE HASN'T TIMED OuT 
#-1,RMER1(RO) ;FORCE ERRORS ON PORT 65% 


SS Se ne nee oe -_~- 


SEG Oi?! 


ee ee ee _ 
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RESET ATTENTION ‘A* & ‘B* BY RMAS 
044376 5 000014 CLR RMER1 (RO) 7CLEAR THE ERRORS 
044402 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT ‘64$'' A IN 
044410 005760 000012 65$: TST RMDS (RO) ;WAIT FOR DRIVE TO TIMEOUT 
044414 001775 BEQ “BR IF DRIVE HASN'T TIMED OuT P 
; CONFIRM THAT BOTH ATTENTION BITS ARE SET 

044416 113760 001224 010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
044424 013737 001224 001240 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044432 005037 001250 CLR CKER ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
044436 016037 12 001126 MOV RMDS (RO), a ;GET CONTENTS OF RMDS 
044444 012737 12 001122 MOV #RMDS , $BDADR got A ADDRESS OF ERROR MESSAGE 

45 37 001122 ADD RO, OOD RH/RM BASE ADDRESS 
044456 012737 001124 MOV HATA, SGDDAT ;WHAT REGISTER SHOULD BE 
044464 013737 001126 001164 MOV SBDDAT -STMPO sMOVE REGISTER SRSTENTS TO ‘STMPO' 
044472 042737 077777 001164 BIC #“CATA, *$TMPO :SAVE SPECIFIED BITS 
044500 023737 001124 001164 CMP SGDDAT ,STMPO :¢ ARE THE BITS 
044506 1414 BEQ 67$ 
044510 013737 001126 001174 MOV SBDDAT ,STMP4 “COPY "BAD DATA’ 
044516 2737 001174 BIC HATA, STMP4 ;CLEAR THE MASKED BITS 
044524 053737 001174 001124 BIS STMP4, SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
044532 104010 EMT 10 
044534 005137 001250 COM CKERR ;SET THE REGISTER .COMPARE ERROR INDICATOR 
044540 240 67$: NOP 
044542 005737 001250 TST CKERR ;WAS ATA SET FOR A?? 
044546 001402 BEQ . +6 oves ~ CONTINUE 
044550 137 045372 JMP 1$ “BYP ASS g ~ TEST 
044554 113760 001226 10 MOVB PORTB,RMCS2(RO) ;:SELECT TB 
044562 013737 001276 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
044570 5037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
044574 016037 12 001126 MOV RMDS (RO) - SBDDAT :GET CONTENTS OF RMDS 

2 012737 12 001122 MOV #RMDS , SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
044610 37 001122 ADD RO, $8DADR ;ADD RH/RM BASE ADDRESS 
044614 012737 1 001124 MOV WATA,$GDDAT :WHAT REGISTER SHOULD BE 
044622 013737 001126 001164 MOV SBDDAT .$T sMOVE REGISTER CONTENTS TO ‘STMPO' 
044630 2737 077777 001164 BIC #*°CATA,STMPO ;:SAVE SPECIFIED BITS 
044636 023737 001124 001164 CMP SGDDAT,$TMPO ;COMPARE THE BITS 
044644 001414 BEQ 69$ 7BR IF OK 
044646 013737 001126 001174 MOV SBDDAT,$TMP4 :COPY “BAD DATA‘ 
044654 042737 100 001174 BIC MATA, STMP4 ;CLEAR THE MASKED BITS 
044662 053737 001174 001124 BIS STMP4 ,SGDDAT :*OR* WITH GOOD DATA FOR TYPEOUT 
044670 104010 EMT 10 
044672 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
044676 24 69$: NOP 
044700 005737 001250 TST CKERR suas ATA SET FOR 8?? 
044704 001402 BEQ +6 YES - CONTINUE 
044706 000137 045372 JMP is “BYPASS REST OF TEST 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

044712 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR * INDICATOR 
044716 012737 2 001122 MOV #RMDS , SBDADR :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
044724 37 001122 ADD RO, $BDADR “ADD THE I/0 BASE ADDRESS 
044730 012737 111700 001124 MOV #111700,$GDDAT ;COMPARSION CONSTANT 
044736 113760 001224 MOVB PORTA,RMCS2(RO) :SELECT PORT A. 
044744 016037 12 001170 MOV RMDS(RO).$ S$TMP2 -:GET tne DRIVE STATUS REGISTER FROM PORT A, 
044752 042737 024001 001170 BIC #PIP'WRL'OM, TMP ; CLEAR CARES 
044760 013737 001170 001164 MOV STMP2,$STMPO : COPY“ ir INTO *STMPO' 


En ness SE te 


SEQ 01 
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"B’ BY RMA 


72 


™~ 
Nm 


001126 


000016 


001126 
001126 


001122 
001124 
001124 


aOO 
OOO 


SEQ 0123 
BIC #ATA'VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB ath P ta) SS : SELECT PORT 
MOV all THE DRIVE STATUS REGISTER FROM POR’ B. 
BIC RPIB URL (OH, ;CLEAR DONT CAR ES 
MOV STMP3,$T a It INTO ‘*STMP1' 
BIC HATA!VV, (STH ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
ioe al iS rn REGISTER THE SAME FROM BOTH PORTS ? 
TST 4h a ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 733 “BR IF NOT 
EMT 46 
JMP 75$ ;BYPASS THE REST OF THE CHECKS 
71$: MOV. STMP2 , S$BDDAT ;SET UP POSSIBLE BAD DATA FOx ERROR MESSAGE 
MOV PT “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) : SELECT PORT 8B. 
TST T ; SEE Nd STATUS EQ 0 FROM PORT A. 
BEQ 72$ “BR F ZERO 
MOV PORTA,PTNBR : SEIZING PORT IF TEST -—_ DRIVE NOT IN NEUTRAL 
MOV STMP3,$BDDAT ; "BAD DATA‘ FOR ERROR TYPE OUT 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
TST STMP1 sSEE IF STATUS’ EQ ZERO FROM PORT B. 
BNE 73$ “BR IF NOT 
723: MOV #-1,RELERR :SET ‘RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
ot eb. ~RMCS1(RO) s RELEASE THE DRIVE 
73$: MOV STMP2 , SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA,PTNBR s¢ PORT NUMBER 
CMP SGDDAT , SBDDAT ALL BITS OK ? 
ae a ;BR IF OK FROM PORT A. 
c 
74$: MOV int oe ay ;CHECK RMDS FOR BIT FAILURES — FROM PORT 8B. 
MOV PORTB ; CHANGE PORT NUMBER 
CMP SGDDAT, ’ SBDDAT SEE IF READ OK FROM PORT B. 
BEQ 75$ “BR IF OK 
EMT 7 
75$: NOP 
TST RELERR ;WAS DRIVE IN NEUTRAL ?? 
BEQ +6 sYES!! 
JMP 1$ 7;BYPASS REST OF TEST 


;WRITE THE ATTENTION BIT 
MOV ASR1,RMAS (RO) 


; VERIFY THAT BOTH ATTENTIONS ARE RESET BY READING RMAS 
MOV RMAS (RO) , SBDDAT T ATTENTION SUMMARY 
BIT ASR1, $BDDAT :1S THE ATTENTION RESET ?? 
BEQ 2$ :YES !! 
MOV RO, $BDADR >SETUP REGISTER ADDRESS 
ADD #RMAS , $BDADR 
MOV SBDDAT , SGDDAT sSETUP EXPECTED DATA 
fist oe sRESET THIS DRIVES BIT 


2$: 
:WAIT FOR THE DRIVES TO RELEASE BY TIMEOUT 


— ee eee. + ee eee ee _— 
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& *B* BY RMAS 


MOVB _—s— PORTA, RC S2 (RO) :SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
3$: rst RMDS (RO) :MAKE SURE DEVICE IS AVAILABLE 

MOVB _—s— PORT, RAC S2 (RO) ‘SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
4$: rst RMDS S$ (RO) :MAKE SURE DEVICE IS AVAILABLE 
1$: SCOPE 


SERA AERAEERERRRERRERERRERRREERREEREREREDHEE 


:*TEST 34 PORT 'A' ALTERNATE ATTENTION PATH TEST 
: VERIFY THAT THE AI.TERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
i A. SET THE ATTENTION BIT FOR PORT ‘A’. 

'* B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 

"* C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
a 

S 


FOR THE DRIVE IS SET. 


SHREK RAARRARKREEEEAERARAAARKEKERREEAREAREEREEEEHKEKADHKKHKHEE 


134: 


t 


TST KYBCTL ; PERF ORMING ONLY SINGLE TEST ? 

BEQ 2$ IF NOT 

BPL 1$ "BR IF JUST ENTERED TEST 

JMP EXEC RETURN @ GET NEXT TEST NUMBER 
1$: MOV #~1 ,KYBCTL >SET SINGLE TEST INDICATOR 
2$: MOV #TEST34,$LPADR SETUP SCOPE LOOP ADDRESS 
cere MCV #TEST34,$LPERR SETUP ERROR LOOP ADDRESS 

MOVS 434, $TSTNM -MOVE #34 TO TEST NUMBER 

MOV ASTACK , SP LOAD THE STACK POINTER 

MOV #10. ,$TIMES :D0 10. ITERATIONS 


sCLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
CLR (RO) sSEIZE THE DRIVE 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) RELEASE THE DRIVE 
MOVB PORTB,RMCS2(RO) ;SELECT PORT #8 
CLR RMDS (RO) :SEIZE THE DRIVE THROUGH PORT ‘8° 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) [RELEASE THE oon 
MOVB PORTA,RMCS2(RO) ;SELECT PORT 
MOV #-1,RMERI(RO)  ;SET ERRORS 10. FORCE ATTN BIT ON PORT A 
CLR RMER1 (RO) ; CLEAR THE ERRORS 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
1$: TST RMDS (RO) ;WAIT FOR DRIVE TO RETURN TO A antiaies 
BEQ 1$ :BR IF STILL SEIZED BY PORT 
MOV #RMAS , $BDADR ;FORM ADDRESS OF ATTN REG IF NERROR 
ADD RO, $BDADR :ADD THE ADDRESS BASE 


es 2 we ene 
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001124 
001166 


001110 
000010 
001240 
001242 


SEO 
MOV ASR1,$GDDAT ;GOOD DATA FOR ERROR MESSAGE 
MOV ASR1.$TMP1 “MAKE DATA {COMPARE MA MASK 
COM $TMP} COMPLEMENT IT 
MOV #2$,$LPERR :LOAD LOOP ON ERROR ADDRESS 
MOVB _—s— wPORTB, RMCS2 (RO) :SELECT PORT 8 
MOV PURTB.PT ;MOVE PORT ADDRESS TO LOCATION FOR I¥PEOUT 
MOV PORTA. SELZPT :"SEIZED' PORT ADDRESS 
CLR RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT B 
2$: MOV RMAS(RO),$BDDAT :GET THE CONTENTS OF THE ATTENTION REG 
MOV SBDDAT,$TMPO =: PUT _CONTENTS INTO WORKING LOCATION 
BIC $TMP1,$TMPO *CLEAR OTHER BITS 
CMP S$GDDAT,$TMPO  :SEE IF ATTN BIT FOR DRIVE SET 
BEQ 3$ “BR IF SET 
. EMT 53 
;RELEASE THE DRIVE FROM PORT B 
MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
CLR RELERR CLEAR THE "RELEASE ERROR ' INDICATOR 
MOV #RMDS,SBDADR §;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, SBDADR :ADD THE 1/0 BASE ADDRESS 
MOV 'PGM'!DPR!IDRY'VV,$GDDAT :COMPARISON CONSTANT 
MOVB  PORTA,RMCS2(RO) :SELECT PORT A. 
MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
BIC #PIP'WRL'OM,$TMP2 :CLEAR DONT CARES 
MOV $TM>2,$TMPO :COPY IT INTO "$STMPO' 
BIC WATA'VV,$TMPO  =CLEAR PORT DEPENDENT BITS FROM THE COPY 
MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIP'WRL'OM,$TMPS :CLEAR DONT CARES . 
MOV STMP3,$T :COPY IT INTO *$TMP1' 
BIC WATA'VV,$TMP1 =CLEAR PORT DEPENDENT BITS FROM THE COPY 
CMP STMPO, $TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BNE 64$ :BR IF NOT 
TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 66$ “BR IF NOT 
EMT 46 
JMP 68S :BYPASS THE REST OF THE CHECKS 
64$: MOV STMP2,SBDDAT  ;:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
TST $TMPO ; SEE IF STATUS EQ 0 FROM PORT A. 
BEQ 65$ IF ZERO 
MOV PORTA, PTNBR "SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV S™MP3,$BDDAT —: "BAD DATA" FOR ERROR TYPE OUT 
MOVB PORTA, RMCS2(RO) “SELECT PORT A 
TST STMP1 :SEE IF STATUS "EQ ZERO FROM PORT B. 
BNE 66$ IF NOT 
65$: MOV #-1,RELERR “SET “RELEASE ERROR' INDICATOR 
MOV #11.RMCS1(RO)  :CLEAR THE DRIVE 
MOV #13,RMCS1 (RO) “RELEASE THE DRIVE 
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001126 66$: MOV STMP2,$BDDAT  :LOOK FOR BIT FAILURE S WHEN RMDS READ 
001240 MOV PORTA.PTNBR ; CHANGE PORT 
001126 BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
001126 CMP SGDDAT,$BDDAT ‘ALL BITS Ok 
BEC $7 :BR IF OK FROM PORT A, 
001126 67$: MOV STMP3,$BDDAT —; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
001126 BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
001126 CMP $GODAT,$BDDAT SEE IF READ OK FROM PORT B. 
BEQ 68$ :BR IF Ok 
EMT ? 
68$: NOP 
SCOPE :LOOP ? 
° SEAR AAR AER EERE EEA REREAD 
:*TEST 35 PORT 'B' ALTERNATE ATTENTION PATH TEST 
: VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 
i A. SET THE ATTENTION BIT FOR PORT ‘B*. 
:* B. SEIZE THE DRIVE THROUGH PORT ‘A’ BY WRITING 0°S INTO RMDS. 
+ 
:* (. READ THE ATTENTION REGISTER ¢ VFUIFY THAT THE ATTENTION BIT 
te FOR THE DRIVE IS SET. 
;* 
i: LAO RRRSRRRRRRRSASESRARASAASSSSSSESELC SELLS SESS OSLASESAERELALLALS SS 
TST35: 
TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ :BR IF NOT 
BPL 1$ BR IF JUST ENTERED TEST 
IMP EXEC :RETURN & GET NEXT TEST NUMBER 
001300 1$: MOV #-1 .KYBCTL :SET SINGLE TEST INDICATOR 
001106 28: MOV #TEST35,$LPADR :SETUP SCOPE LOOP ADDRESS 
001110 li MOV #TEST35,$LPERR :SETUP ERROR LOOP ADDRESS 
001102 ' MOVB  #35.$TSTNM :MOVE #35 TO TEST NUMBER 
MOV #STACK, SP “LOAD THE STACK POINTER 
001176 MOV #10. ,$TIMES ::D0 10. ITERATIONS 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
000010 MOVB = PORTA, RMCS2(RO) :SELECT PORT #A 
CLR RMDS (RO) “SEIZE THE DRIVE 
000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
000010 MOVB PORTB,RMCS2(RO) :SELECT PORT 4B 
CLR RMDS (RO) =SEIZE THE DRIVE THROUGH PORT 'B' 
000 MOV #11,RMCS1(RO)  :ISSUE DRIVE CLEAR 
000000 MOV #13,RMCS1(RO)  =RELEASE THE DRIVE 
10 MOv3 §PORTB,RMCS2(RO) ;SELECT PORT B 
000014 MOV #-1,RMER1(RO)  ;SET ERRORS TO FORCE ATTN BIT ON PORT B 
CLR RMER1 (RO) =CLEAR THE ERRORS 
000010 MOVB PORTA, RMCS2(RO) °:SELECT PORT A 


SEQ O12¢6 
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rz ALTERNATE ATTENTION PATH TEST SEQ 0127 
046452 005760 000012 1$: TST RMDS (RO) ;WAIT FOR DRIVE TO RETURN TO NEUTRAL 
. 066656 001775 BEQ..  1$ :BR IF STILL SEIZED BY PORT B 
046460 012737 000016 001122 MOV #RMAS, SEDADR :FORM ADDRESS OF ATTN REG IF ERROR 
* 046466 060037 001122 ADD RO, $BDAD :ADD THE ADDRESS BASE 

046472 013737 001236 001124 MOV ASR1, SGDDAT :GOOD DATA FOR ERROR MESSAGE 
046500 (13737 001236 001166 MOV ASR1_$TMP1 “MAKE DATA COMPAR E MASK 
046506 005137 001166 COM STMP4 : COMPLEMENT IT 
046512 012737 046546 001110 MOV #2$,$LPERR ;LOAD LOOP ON ERROR ADDRESS 

6520 113760 001224 000010 MOVB  PORTA,RMCS2(RO) °:SELECT PORT 
046526 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOQUT 
046534 013737 001224 001242 MOV PORTA,SEIZPT ;'"SEIZED'’ PORT ADDRESS 
046542 005060 000012 CLR RMDS (RO) “SEIZE THE DRIVE THROUGH PORT 
046546 016037 000016 001126 2%: MOV RMAS(RO),SBDDAT :GET THE CONTENTS OF THE ATTENTION REG 
046554 013737 001126 001164 MOV SBDDAT,$TMPO PUT CONTENTS INTO WORKING LOCATION 
046562 043737 001166 001164 BIC STMP1, $TMPO “CLEAR OTHER BITS 
046570 023737 001124 001164 CMP $GDDAT,STMPO :SEE IF ATTN BIT FOR DRIVE SET 
046576 001401 BEQ 3$ “BR IF SET 
046600 104053 EMT 53 
046602 3$: 

7RELEASE THE DRIVE FROM PORT A 
046602 113760 001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT A 
046610 013737 001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
046616 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

046624 005037 001254 CLR RELERR :CLEAR THE ‘RELEASE ERROR ' INDICATOR 
046630 012737 000012 001122 MOV #RMDS.$BDADR =: FORM THE ADDRESS OF RMDS FOR TYPEOUT 
046636 060037 001122 ADD RO, $BDADR -ADD THE I/O BASE ADDRESS 
046642 012737 011700 001124 MOV #MOL ! PGM! DPR! DRY! VV, $GDDAT : COMPARISON CONSTANT 
046650 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
046656 016037 000012 001170 MOV RMDS(RO),$TMP2 <=GET THE DRIVE” STATUS REGISTER FROM PORT A. 

6664 024001 001170 BIC #PIP!'WRL'OM, $TMP2 :CLEAR DONT CARES 
046672 013737 001170 001164 MOV $TMP2, STMPO :COPY IT INTO "$TMPO' 
046700 042737 100100 001164 BIC WATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
046706 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
046714 016037 000012 001172 MOV RMDS(RO).$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
046722 042737 024001 001172 BIC #PIP!WRL'OM,$TMP3 CLEAR DONT CARES 
046730 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO *$TMP1' 
046736 042737 100100 001166 BIC WATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
046744 023737 001164 001166 CMP STMPO, STMP1 71S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
046752 001006 BNE 64$ “BR IF NOT 
046754 005737 001164 TST STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
046760 001045 BNE 66$ “BR IF NOT 
046762 104046 EMT 46 
046764 000137 047164 JMP 68$ :BYPASS THE REST OF THE CHECKS 
046770 013737 001170 001126 64%: MOV $T™MP2,$BDDAT — ;:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
046776 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
047004 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
047012 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
047016 001414 BEQ 65$ “BR IF ZERO 
047020 013737 001224 001240 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
047026 013737 001172 001126 MOV S$TMP3.$BDDAT  :*BAD DATA' FOR ERROR TYPE OUT 
047034 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT 
047042 ©05737 001166 TST $TMP1 “SEE IF STATUS EQ ZERO FROM PORT B. 


047046 001012 BNE 66$ “BR JF NOT 
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001254 
000000 
000000 
001126 


001126 


001126 


001102 
001176 


000010 


000000 
000000 


65$: 


66$: 


67$: 


68$: 


#~1 ,RELERR ;SET "RELEASE ERROR’ INDICATOR 


#11,RMCS1(RO) CLEAR THE DRIVE 

#13,RMCS1 (RO) “RELEASE THE DRIVE 

$TMP2, SBDDAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA.PTNBR ; CHANGE PORT 

HATA, SBDDAT “DON'T CHECK THE ATTN BIT 


ZALL BITS OK ? 
;BR IF OK FROM PORT A. 


; CHECK ws Ay BIT FAILURES = FROM PORT B. 
; CHANGE PORT NUMBER 

:DON'T CHECK THE ATIN BIT 

;SEE IF READ OK FROM PORT B. 

"BR IF Ok 


$GDDAT , SBDDAT 
- 
STMP3 , SBDDAT 


$GDDAT , SBDDAT 
68$ 


;LOOP ? 


SARA EAA ATEAEAERERAAAEAAEAREREEEEREEREKEEREEEKEKEE 


VRTEST 36 


** 


°g 
*® 
'*® 
*® 
*® 
*?® 
** 
** 
*® 
*“* 
** 
rs 


rir Se Be Be Be Be Be Be Be Se Be Be 


136: 


1$: 
2s: 


TEST 36: 


SET ATTENTION ‘A’ BY COMMMAND TEST 


TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND . 


ISSUE A OFFSET COMMAND THROUGH PORT ‘A’. 
WAIT FOR THE OFFSET COMMAND TO COMPLETE (‘DRY’ TO BECOME 


ke 


VERIFY THAT THE ATTENTION BIT FOR PORT ‘A* IS SET AND 


THAT THE ATTENTION BIT FOR PORT °B* IS NOT SET. 


oh aaa THE DRIVE THROUGH PORT ‘A’. 


VERIFY e THE DRIVE RETURNED 


NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 


, EAA AERA A EAA AEA AREER AAEAKAAAERAEARARARRERRAEAERREERRRRER EEE 


KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
2$ :BR IF NOT 
1$ 7BR IF JUST ENTERED TEST 


RETURN & GET NEXT TEST NUMBER 
sSET SINGLE TEST INDICATOR 
;SETUP SCOPE LOOP ADDRESS 
:SETUP ERROR LOOP ADDRESS 


EXEC 

#~1 ,KYBCTL 
#TEST36,$LPADR 
#TEST36,$LPERR 


#36, $TSTNM :MOVE #36 TO TEST NUMBER, 
#STACK,SP LOAD THE STACK POINTER, | 
#10. ,$TIMES *:D0 10. ITERATIONS ‘* 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


PORTA,RMCS2(RO) ;SELECT PORT #A 
RMDS (RO) sSEIZE THE DRIVE 
#11,RMCS1(RO) ;ISSUE DRIVE CLEAR 


#15,RMCS1(RO) ;RELEASE THE DRIVE 


SEQ 0126 


eter erento 


ee eee 
EET 
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736 SET ATTENTION ‘A* BY COMMMAND TEST SEQ 0129 
047274 113760 001226 000010 MOVB PORTB,RMCS2(RO) ; SELECT PORT #B 
047302 005060 0600012 CLR RMDS (RO) 7SEIZE THE DRIVE THROUGH PORT ‘B' 
047 012760 900011 000000 MOV #11 RCS (RO) :ISSUE DRIVE CLEAR 
- 047314 012760 000013 000000 MOV #13,RMCS1(RO)  :RELEASE THE DRIVE 
047322 113760 001224 000010 MOVB _—s~ PORTA, RMCSZ(RO) : SELECT PORT 
047330 013737 601224 001240 MOV PORTA,PTNBR ;MO ve PORT ADDRESS TO LOCATION FOR TYPEOUT 
047336 013737 001224 001242 MOV PORTA, SEIZPT :"SEIZED' PORT ADDRESS 
:DO A OFFSET THROUGH PORT A 
047344 | 012760 000015 000000 MOV #15,RMCS1(RO)  ;ISSUE A OFFSET INSTRUCTION THROUGH PORT A 
:WAIT FOR DRIVE TO FINISH ; 
047352 * 032760 000200 000012 BIT #DRY,RMDS(RO)  ;WAIT FOR DRIVE TO FINISH 
047360 001774 BEQ 6 “BR IF NOT FINISHED 
; CONFIRM THAT ATTENTION IS SET FOR PORT A 
047362 005037 001250 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
016037 000012 001126 MOV RMDS(RO), SBDDAT * GET CONTENTS OF RMDS 
047374 012737 000012 001122 MOV #RMDS,S$BDADR ;: FORM REGISTER ADDRESS OF ERROR MESSAGE 
047402 37, 0011c2 ADD RO, $8DADR :ADD RH/RM BASE ADDRESS 
7406 012737 1 001124 MOV #ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
047414 013737 001126 001164 MOV SBDDAT,STMPO  ;MOVE REGISTER CONTENTS TO ‘STMPO’ 
047422 042737 077777 001164 BIC #*CATA,STMPO ;SAVE SPECIFIED BITS 
047430 023737 001124 001164 CMP SGDDAT.STMPO COMPARE THE 
047436 001414 BEQ 64$ F OK 
047440 013737 001126 001174 MOV SBDDAT, STMP4 “COPY "BAD DATA’ 
04744 042737 100000 001174 BIC HATA, STMPS :CLEAR THE MASKED BITS 
04745 053737 001174 001124 BIS STMP4,$GDDAT  :'OR’ WITH GOOD DATA FOR TYPEOUT 
0474 104032 EMT 32 
047464 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
047470 000240 64$: NOP . 
:RELEASE THE DRIVE FROM PORT A 
047472 113760 001224 000010 MOVB PORTA.RMCS2(RO) :SELECT PORT A 
047500 013737 001224 001240 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
047506 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
047514 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ' INDICATOR 
047520 012737 12 001122 MOV WRADS.$BDADR §:FORM THE ADDRESS OF RMDS FOR TYPEOUT 
047526 37 001122 ADD RO, SBDADR :ADD THE 1/0 BASE ADDRESS 
7532 012737 011700 001124 MOV 'PGM'DPR!DRY' VV, $GDDAT : COMPARISON CONSTANT 
047540 113760 001224 MOVB PORTA, RMCS2(RO) :SELECT PORT 
7546 016037 12 001170 RMDS(RO),$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
047554 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 :CLEAR DONT CARES 
7562 013737 001170 001164 MOV $TMP2,$TMPO :COPY IT INTO "$TMPO' 
047570 042737 100 001164 BIC MATA! VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
047576 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT 
047604 016037 000012 001172 RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
047612 042737 024001 001172 BIC #PIP'WRL'OM,$TMP® : CLEAR DONT SAR ES 
047620 013737 001172 001166 MOV $TMP3,STMP1 -COPY IT INTO '$TMP 
047626 042737 001166 BIC WATA'VV.$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 





eee 
di. 
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047634 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
047642 001006 BNE 66$ ;BR IF NOT 
047644 005737 001164 TST $TMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
047650 001045 BNE 68$ ;BR IF NOT 
047652 104046 EMT 46 
047654 137 050040 JMP 70$ ;BYPASS THE REST OF wiv 
7 013737 01170 001126 668: MOV STMP2 , SBDDAT ;SET UP POSSIBLE BAD D A FOR ERROR MESSAGE 
7 013737 001226 001240 MOV PORTB,PTNBR ;SEIZING PORT IF TEST. SHOWS DRIVE NOT IN NEUTRAL 
047674 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
047702 005737 001164 TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
047706 0014 BEQ 67$ :BR IF ZERO 
047710 013737 001224 001240 MOV PORTA,PTNBR : EIZING A! IF TEST = DRIVE NOT iN NEUTRAL 
047716 013737 001172 001126 MOV STMP3 ,SBDDAT ; "BAD DATA’ FOR ERROR TYPE OuT 
047724 11 001224 10 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
047732 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
047736 001012 BNE 68$ ;BR IF NOT 
047740 012737 177777 001254 67$: MOV #-1,RELERR ;SET ‘RELEASE ERROR’ INDICATOR 
047746 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
047754 012760 000013 000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
047762 104026 EMT 26 
047764 013737 001170 001126 68$: MOV STMP2 , SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
047772 013737 001224 001240 MOV TA,PT ; CHANGE PORT NUMBER 
050000 923737 001124 001126 CMP SGDDAT , SBDDAT ALL BITS OK ? 
050006 001401 BEQ 69$ “BR IF OK FROM PORT A. 
050010 104007 EMT 7 
U50012 013737 001172 001126 69S: MCV STMPS, ee" ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
050020 013737 001226 001240 MOV T ; CHANGE PORT NUMBER 
050026 023737 001124 001126 CMP $GDDAT, SBDDAT :SEE IF READ OK FROM PORT B. 
050034 001401 BEQ 70$ :BR IF OK 
050036 104007 EMT 7 
050040 000240 70$: NOP 
050042 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
050050 013737 001226 001240 MOV PORTB,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
; ; CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 
050056 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
050062 0160357 000012 001126 MOV RMDS(RO),SBDDAT ;GET CONTENTS OF RMDS 
050070 012737 12 001122 MOV #RMDS , SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
76 37 001122 ADD RO,SBDADR ;ADD RH/RM BASE ADDRESS 
050102 005037 001124 CLR SGDDAT WHAT REGISTER SHOULD BE 
C50106 013737 001126 001164 MOV SBDDAT , STMPO :MOVE REGISTER CONTENTS TO '$TMPO' 
050114 042737 077777 001164 BIC #“CATA,STMPO : SAVE SPECIFIED BITS 
050122 023737 001124 001164 CMP SGDDAT,STMPO %;COMPARE THE BITS 
30 001414 BEQ 71$ 7BR IF OK 
050132 013737 001126 001174 MOV SBDDAT ,STMP4 :COPY "BAD DATA‘ 
050140 04273 001174 BIC HATA, STMP4 ieee THE MASKED BITS 
050146 053737 001174 001124 BIS STMP4, SGDDAT *"OR' WITH GOOD DATA FOR TYPEOUT 
050154 104032 EMT 32 
050156 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
050162 000240 71$: NUP 
050164 000004 SCOPE ;LOOP ? 
1170 
1186 
1187 LRAT RARE AAR ERA RERRARAAKRRRRERRER ERE RES 
SRIEST 37 SET ATTENTION ‘B’ BY COMMMAND TEST 
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050360 
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050372 
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012737 
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003074 
177777 
050224 
050224 


M15 
MACRO VO04.00 4-APR-81 18:06:25 PAGE 10-91 


COMMMAND TEST 
:*TEST THE OPERATION OF THE PORT A AND PORT & ATTENTION BITS AFTER A 
a COMMAND . 
** 
** A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ‘B'. 
-* 
;* B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE (‘DRY' TO BE COME 
.e '1'), VERIFY THAT THE ATTENTION BIT FOR PORT "8" IS SET 
re THAT THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET 
:* (C. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 
:* TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
** 
PPETITITIIII TTI TITE LILI LILI LITLE T TTT Tere TTT T eee 
TST37: 
TST KYBCTL ; PERF ORMING ONLY SINGLE TEST ? 
BEQ 2$ “BR IF NOT 
BPL 1$ :BR IF JUST ENTERED TEST 
JMP EXEC :RETURN & GET NEXT TEST NUMBER 
001300 1$ MOV #~1.KYBCTL :SET SINGLE TEST INDICATOR 
1106 2$ MOV #TEST37,$LPADR :SETUP SCOPE LOOP ADDRESS 
001110 is MOV %EST37,$LPERR :SETUP ERROR LOOP ADDRESS 
001102 ' MOVB «#37. $TSTNM ;MOVE #37 TO TEST NUMBER 
MOV #STACK, SP LOAD THE STACK POINTER 
001176 MOV #10. ,$TIMES “:D0 10. ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 
CLR RMDS (RO) sSEIZE THE DRIVE 
000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
000010 MOVB TB,RMCS2(RO) ;SELECT PORT #B 
CLR RMPS (RO) sSEIZE THE DRIVE THROUGH PORT ‘B' 
000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
000000 MOV #13,RMCS1(RO) RELEASE THE DRIVE 
000010 MOVB PORTB.RMCS2(RO) ";SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
001242 MOV PORTB,SEIZPT ;*SEIZED' PORT ADDRESS 


;DO0 A OFFSET THRUUGH PORT B 


000000 MOV #15,RMCS1(RO) ;ISSUE A OFFSET INSTRUCTION THROUGH PORT 8B 
sWAIT FOR DRIVE TO FINISH 
000012 BIT #DRY,RMDS(RO) ;WAIT FOR DRIVE TO FINISH 
BEQ -~6 :BR IF NOT FINISHED 
;CCNF IRM THAT ATTENTION IS SET FOR PORT B 
CLR CKERR sCLEAR THE ‘CHECK ERROR" INDICATOR 
001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 





A 
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100000 
001126 
077777 
001124 
001126 
100000 
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64$: 
sRELEASE THE DRIVE FROM PORT B 


: VERIFY 


66$: 


MOVB 
MOV 
MOV 


SEQ 013, 
#ATA,SGDDAT ;WHAT REGISTER SHOULD BE 
SADDAT , $TMPO sMOVE REGISTER ? fel TO *$STMPO* 
#*CATA,STMPO ;SAVE SPECIFIED BITS 
$GDDAT , $TMPO ;COMPARE THE BITS 
64$ ;BR IF OK 
SBDDAT ,STMP4 :COPY ‘BAD DATA’ 
HATA, STMPG :CLEAR THE MASKED BITS 
$TMP4 , $GDDAT :*OR’ WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


PORTB,RMCS2(RO) 
PORTB,PTNBR ;MO 
#13,RMCS1(RO) 


;SELECT PORT B 
VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
ISSUE RELEASE THROUGH PORT B 


THAT THE DRIVE IS STILL IN NEUTRAL 


#PIP!WRL'OM,STMP 
STMP 


RELERR LEAR THE ‘RELEASE ERROR ° INDICATOR 
#RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 

RO, $BDADR :ADD THE 1/0 BASE ADDRESS 

#MOL !PGM! DPR! DRY! VV, $GDDAT — CONSTANT 
PORTA.RMCS2(RO) ;SELECT PORT 

RMDS (RO), 2 upioe! THE DRIVE” ote FROM PORT A. 


:CLEAR DONT 
:COPY IT INTO "$TMPO' 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 
:SELECT PORT 
3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
STMP3 T CARES 


> CLEAR 
MP3,STMP1 ;COPY IT INTO "$TMP1' 
;CLEAR PORT DEPENDENT BITS FROM THE COPY 


STNPO, is THE Status REGISTER THE SAME FROM BOTH PORTS ? 
$TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 


- 7BR IF NOT 


sBYPASS THE REST OF THE CHECKS 
STMP2 , SBDDAT :SET_UP POSSIBLE BAD DATA FOR ERROR ME 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


SSAGE 


PORTB,PTNBR 7S 

PORTB,RMCS2(RO) ;SELECT PORT B. 

$STMPO : SEE g STATUS EQ 0 FROM PORT A 

67$ ;BR IF ZERO 

PORTA,PTNBR s SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
S$TMP3 ,SBDDAT ; "BAD DATA’ FOR ERROR TYPE OUT 
PORTA,RMCS2(RO) :SELECT PORT A. 

cae MP1 a all EQ ZERO FROM PORT B. 
#~1,RELERR ;SET ‘RELEASE ERROR" INDICATOR 
#11,RMCS1(RO) ;CLEAR THE DRIVE 

pallet idaaad ;RELEASE THE DRIVE 

$TMP2 , SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA,PTNBR ; CHANGE PORT NUMBER 

$GDDAT.$BDDAT ALL BITS OK ? 


EE ES on 


eee see-sesssessensttntennenes 
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8g ggg ge 
G33 FFF SS 


NN 
ane 


SEQ 0153 


aE 0 698 :BR If Ok FROM PORT A 
69S: MOV $TMP3, SBDDAT : CHECK RMDS FOR B11 FAILURES = FROM PORT B. 

MOV PORTB.PTNBR : CHANGE PORT 

CMP SGDDAT.SBDDAT :SEE IF READ Ok FROM PORT B. 

BEC +63 :BR IF OK 

EMT ? 
70$: NOP 

MOVB PORTA,RMCS2(RO) =:SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


: CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 


;CLEAR THE ‘CHECK ERROR’ INDICATOR 
;GET CONTENTS OF RMDS 
REGISTER ADDRESS OF ERROR MESSAGE 


CKERR 
RMDS (RO) , SBDDAT 
MOV #RMDS .SBDADR ;: FORM 


ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 

CLR SGDDAT :WHAT REGISTER SHOULD BE 

MOV SBDDAT ,.STMPO :MOVE REGISTER CONTENTS TO ‘STMPO’ 

BIC #°CATA,STMPO ;SAVE SPECIGIED BITS 

ve we : COMPARE THE BITS 

MOV SBDDAT ,STMP4 :COPY "BAD DATA’ 

BIC MATA, STMPS :CLEAR THE MASKED BITS 

tae  rcamamaal :*OR* WITH GOOD DATA FOR TYPEOUT 

COM CKERR SET THE REGISTER COMPARE ERROR INDICATOR 
71$: NOP 

SCOPE SLOP 7 


5 FEAR A AREER ERATE EARAEARAEAREAEEREEAEREKEEEKEE RHEE 


THAT A CHANGE IN UNIT READY SETS THE ATTENTION 
FOR BOTH PORTS. 


*¢@ 
;*THIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 
*® 


5 TRAE AAA RAAAAREEARERATAAEAEEAEREEREARAAAREERAERAEEEEREE 


- 
;*VERIFY 
-* 


CT EAA AAATAERAEERAERARAEREEEAAAAEAREAERERERARERERERE TERE EKER 
** 
e 


+8 
zt A. 


>*VERIFY THAT ATTENTION SETS WHEN THE DRIVE SWITCHES AFTER 
: *BE ING RELEASED. 


:*THIS IS PERFORMED DURING THE ‘SET PORT REQUEST TEST"’ 


SAE RAEEAEEERAERAAAEAEEAEAAEEEAEAEEAREARAERRERERERERE 


FERRARA EEEREEAAAERERERARERARAEEEEREREERAEKERE REE EE 


VRTEST 40 PORT "A* SET VOLUME VALID TEST 
;*VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


WITH PORT *A* SELECTED, RESET AND SET ‘UNIT READY'' 
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* 
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:* 

*e 

se 
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1$: 
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TEST4O: 


C 16 
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is alt USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
S SEIZED AND THAT ‘VOLUME VALID'’ 1S RESET AND 
ATTENTION IS SET. 


ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A 
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME” VAL ID 


IS SET. 


RELEASE THE DRIVE FROM PORT ‘A’ AND SELECT THE goo FOR 
PORT 'B*. VERIFY THAT ATTENTION IS STIL SET AND T 
VOLUME VALID IS STIL RESET. 


ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT *B* THEN RELEASE PORT 'B’. 


-cKRRERRERRRKR EERE ERE ER ERR ERER EERE EERE 


TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ ;BR IF NOT 

BPL 1$ ;BR IF JUST ENTERED TEST 

JMP EXEC ZRETURN & GET NEXT TEST NUMBER 
MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
MOV MTESTSO,$LPADR ;SETUP SCOPE LOOP ADDRESS 

MOV #TEST4O,$LPERR : SETUP ERROR LOOP ADDRESS 


MOVB 440,$TSTNM sMOVE #40 TO TEST NUMBER 
MOV #STACK, SP sLOAD THE STACK POINTER 
MOV #10. ,STIMES :;D0 10. ITERATIONS 


sSEIZE PORT A BY WRITING THE MAINTENANCE REGISTER, RMMR1. SET 
;AND RESET "MAINTENANCE UNIT READY’’ TO CAUSE VOLUME VALID TO 
sRESET AND ATTENTION TO SET. 


sSEIZE THE DRIVE THROUGH PORT A 


VERIFY 





MOVB PORTA.RMCS2(RO) ;SBLECT PORT A | 
MOV PORTA, SEIZPT : STORE SEIZING PORT'S ADDRESS 
MOV #DMD.RMMR1(RO) ;WRITE DMD INTO RMMR1 


MOV PORTB, OPPRT ‘OPPOSITE’ PORT ADDRESS 
MOV #DMD ' MUR, RMMR1 behs :SET UNIT READY 
MOV #0,.RMMR1 (RO) *RESET DIAGNOSTIC MODE 


THAT ATA = 1,VV = 0 FOR PORT A 
CLR CKERR ;CLEAR THE “CHECK ERROR® INDICATOR 
MOV RMDS (RO), SBDDAT ;GET CONTENTS OF RMDS 
MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $8DADR RH/RM BASE ADDRESS 
MOV #ATA, SGDDAT WHAT REGISTER SHOULD BE 
MOV SBDDAT .STMPO sMOVE REGISTER CONTENTS TO ‘S$TMPO' 
BIC #°CATA,STMPO ;SAVE SPECIFIED BITS 
CMP SGDDAT , $TMPO ;COMPARE THE BITS 
66$ :BR IF OK 


SBDDAT ,STMP4 :COPY "BAD DATA’ 


BIC HATA, STMP4 :CLEAR THE MASKED BITS 
BIS taal ;"OR* WITH GOOD DATA FOR TYPEOQUT 


ES A a Eo 


SEQ 0134 


eee RMOS/3/2 DU POR TST 1 
740 PORT *A* SET VOLUME VALID TEST 


ect teenies 
ee = 


i; a eR eee 


051410 


051522 


651524 
051532 


051540 


051756 


005137 
000 


012760 


001250 
001250 


Mm MONNNA— 
NOS MN 


S 
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000000 
000000 


Mm MM 
—- NO 


8B SBBz ge 
SRx REEL AG 


NNN 
a er 


ese MOO 


aebadb eaiedbadah adbead 
hued atebabead  ealiad 
NNN SSRy NON 


sss S$SssS SS 





i com CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
MOV RMDS(RO),$BDDAT “:GET CONTENTS OF RMDS 
MOV #RMDS ,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR ;ADD_RH/RM BASE ADDRESS 
CLR $GDDAT WHAT REGISTER SHOULD BE 
MOV $BDDAT,$TMPO  §:MOVE REGISTER CONTENTS TO ‘$TMPO" 
BIC #*CVV.$TMPO :SAVE SPECIFIED BITS 
CMP SGDDAT ,$T ;COMPARE THE BITS 
BEQ 68$ F OK 
MOV SBDDAT.$™MP4  :COPY "BAD DATA’ 
BIC #VV,$T ; CLEAR THE MASKED BITS 
81s SIMP4 , SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
68$: NOP 
; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A 
MOV #11,RMCS1(RO) :DRIVE CLEAR 
MOV #21.RMCS1(RO) “READ IN PRESET 
: VERIFY ATA AND VV = 1 FOR PORT A 
CLR CKERR CLEAR THE "CHECK ERROR’ INDICATUR 
MOV RMDS(RO),SBDDAT “:GET CONTENTS OF RMDS 
MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, SBDADR :ADD RH/RM BASE ADDRESS 
MOV #VV,$GDDAT :WHAT REGISTER SHOULD BE 
MOV SBDDAT ,$T :MOVE REGISTER CONTENTS TO ‘$TMPO’ 
BIC #*°CVV,STMPO :SAVE SPECIFIED BITS 
CMP SGDDAT ,$T : COMPARE THE BITS 
BEQ 70$ “BR IF OK 
MOV SBDDAT.STMP4 §: COPY "BAD DATA’ 
BIC #VV,STMPS :CLEAR THE MASKED BITS 
BIS STMPS ,SGDDAT  :'OR* WITH GOOD DATA FOR TYPEQUT 
ea com CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
CLR CKERR :CLEAR THE "CHECK ERROR" INDICATOR 
MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
MOV MOL ! PGM: DPR! DRY! VV SGDDAT ;WHAT REGISTER SHOULD BE 
MOV SBDDAT,$TMPO |: MOVE REGISTER CONTENTS TO "$TMPO’ 
BIC #0153970, STMPO ;SAVE SPECIFIED BITS 
CMP SGDDAT,$TMPO — ; COMPARE THE BITS 
BEQ 72$ :BR IF OK 
MOV SBDDAT,$TMP4 § : COPY ‘BAD DATA’ 
BIC #153770,$TMP4 :CLEAR THE MASKED BITS 
BIS STMPS ,$GDDAT  :'OR" WITH GOOD DATA FOR TYPEQUT 
COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
72$: NOP 


sRELEASE PORT A AND SELECT PORT B 


;VERIFY THAT ATA = 





1 AND VV = 0 FOR PORT B 


SLL EE SS SE a - - o— — -~ -- 


———— ee ee 
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PORT *A’ SET VOLUME VALID TEST SEQ 013¢ 
:RELEASE THE DRIVE FROM PORT A 
051760 113760 001224 000010 MOVB §PORTA,RMCS2(RO) :SELECT PORT A 
051766 013737 001224 001240 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
051774 012760 000013 000000 MOV #13,RMCS1(RO)  ;ISSUE RELEASE THROUGH PORT A 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
052002 005037 001254 CLR RELERR ;CLEAR THE "RELEASE ERROR ' INDICATOR 
052006 012737 000012 001122 MOV #RMDS ,SBDADR = ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
052014 060037 001122 ADD RO, $BDADR ‘ADD THE 1/0 BASE ADDRESS 
052020 012737 011600 001124 MOV #MOL'PGM'DPR!DRY.$GDDAT :COMPARISON CONSTANT 
052026 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A. 
052034 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
052042 042737 024001 001170 BIC #PIP'WRL'OM,$TMP2 :CLEAR DONT CARES 
052050 013737 001170 001164 MOV $TMP2,$TMPO COPY IT INTO '$TMPO' 
052056 042737 100100 001164 BIC WATA!VV,$TMPO = CLEAR PORT DEPENDENT BITS FROM THE COPY 
052064 113760 001226 000010 MOVB  PORTB,RMCS2(RO) :SELECT P 
052072 016037 000012 001172 MOV RMDS(RO),$TMP3 <GET THE DRIVE. STATUS REGISTER FROM PORT B. 
0652100 042737 024001 001172 BIC #PIP'WRL'OM, $TMPS CLEAR DONT CARES 
052106 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO ‘$TMP1' 
052114 042737 100100 001166 BIC #ATA'VV,$TMP1  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
052122 023737 001164 001166 CMP STMPO,STMP1 IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
052130 001006 BNE 74$ “BR IF NOT 
052132 005737 001164 TST $TMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
052136 001037 BNE 76$ :BR IF NOT 
052140 104046 EMT 46 
052142 000137 052326 JMP 78$ :BYPASS THE REST OF THE CHECKS 
052146 013737 001170 001126 74$: MOV STMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
052154 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052162 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B. 
052170 005737 001164 TST STMPO SEE IF STATUS EQ 0 FROM PORT A 
052174 001414 BEQ 75$ F ZERO 
052176 013737 001224 001240 MOV PORTA, PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
052204 013737 001172 001126 MOV STMP3,S$BDDAT  :*BAD DATA’ FOR ERROR TYPE OUT 
052212 113760 001224 000010 MOVB —s— PORTA, RACs CRO) “SELECT PORT 
052220 005737 001166 TST STMP1 :SEE IF STATUS” EQ ZERO FROM PORT B. 
052224 001004 BNE 76$ :BR IF NOT 
052226 012737 177777 001254 .75$: MOV #-1 ,RELERR :SET "RELEASE ERROR’ INDICATOR 
052234 104022 EMT 22 
052236 013737 001170 001126 76$: MOV - $TMP2,$8DDAT —:LOOK FOR BIT FAILURES WHEN RMDS READ 
052244 013737 001224 001240 MOV PORTA, PTNBR ; CHANGE PORT NUMBER 
052252 042737 100100 001126 BIC HATA'VV,$BDDAT DON'T CHECK ATTN BIT OR VV BIT 
052260 023737 001124 001126 CMP $GDDAT,$BDDAT :ALL BITS OK ? 
052266 001401 | BEQ 77$ “BR IF OK FROM PORT A. 
052270 104007 EMT 7 
052272 013737 001172 001126 77$: MOV $TMP3,$BDDAT — ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
052300 013737 001226 001240 MOV PORTB.PTNBR ;CHANGE PORT NUMBER 
052306 042737 100100 001126 BIC HATA!VV,$BDDAT :DON'T CHECK ATTN BIT OR VV BIT 
052314 023737. 001124 001126 CMP S$GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
052322 001401 BEQ 78$ “BR IF OK 
052324 104007 EMT 7 
052326 000240 78$: _ NOP 
052330 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B 
052336 013737 001226 001240 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


052344 005037 001250 CLR CKERR | sCLEAR THE ‘CHECK ERROR" INDICATOR ' 
052350 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
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Sea RMOS/3/2 DU POR TST 1 
T40 PORT *A* SET VOLUME VALID TEST 


052356 
05 


052560 


052562 
052570 


052576 
052604 
052612 


C52620 


052746 


012737 
060037 


012760 
012760 


113760 
013737 
012760 


000012 
001122 
90000 
001126 
077777 
001124 
001126 
100000 
001174 
001250 


001250 
000012 
0000 


001174 
001250 


000011 
000021 
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001122 
001124 


001164 


001174 . 


001174 
001124 


001126 
001122 


001164 
001164 
001164 


001174 
001174 
001124 


000000 
000000 


001166 


79$: 


813: 


: ISSUE A DRIVE CLEAR AND A READ 
: THEN RELEASE PORT B 


MOV 


16 


#RMDS , SBDADR 
RO, $BDADR 
HATA. $GDDAT 
SBDDAT , STMPO 
#“CATA,STMPO 


SBDDAT , STMP4 
HATA, STMP4 
tae 


6 
CKERR 


CKERR 

RMDS (RO) , SBDDAT 
ARMDS , $BDADR 
RO,$BDADR 
$GDDAT 


' $BDDAT ,STMPO 


#*CVV,STMPO 
SGDDAT , STMPO 
81$ 


SBDDAT , STMP4 
AVV .STMPS 
erent 


CKERR 


#11,RMCS1(RO) 
#21 ,.RMCS1(RO) 


MOV 
;RELEASE THE DRIVE FROM PORT B 


; VERIFY 


PORTB, ts Nae 
TB, PTNBR 
#13,RMCS1 (RO) 


10-97 


bes REGISTER oF apone te ERROR MESSAGE 


RH/RM BASE 


;WHAT REGISTER SHOULD 


Be 
tities aife TO *$TMPO’ 


:MOVE 
;SAVE SPECIFIE 
SGDDAT , STMPO ; COMPAR 
79$ ;BR_IF OK 
:COPY ‘BAD DATA’ 
;CLEAR THE MASKED BITS 
;"OR* WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


E THE BITS 


EAR THE ‘CHECK ERROR’ INDICATOR 
RMDS 


set 

;GET CONTENTS OF 

;FORM REGISTER ADDRESS OF ERROR MESSAGE 
i a BASE ADDRESS 


T REGISTER SHOULD 


BE 
‘MOVE REGISTER CONTENTS TO ‘$TMPO' 
: SAVE Sata’ tie BITS 


THE BITS 


;BR IF OK 

:COPY "BAD DATA’ 

:CLEAR THE MASKED BITS 

:"OR’ WITH GOOD DATA FOR TYPEOUT 


SET THE REGISTER COMPARE ERROR INDICATOR 


IN PRESET COMMAND TO PORT B, 


:DRIVE CLEAR 


sREAD IN PRESET 


;SELECT PORT B 
PORT ADDRESS TO LOCATION eg TYPEOUT 


;MOVE 
; ISSUE RELEASE THROUGH PORT 


THAT THE DRIVE IS STILL IN NEUTRAL 


RELERR 
ARMDS , 
RO, SBDA 


ADD T 
#MOL 'PGM' DPR! DRY: $GDDAT 


PORTA,RMCS2(RO) 
rBick: the of 


MPO 
HATA'VV, STMPO 
PORTB, RMCS2(RO) 
), et: 


MP 
AATA!VV,STMP1 
$TMPO ,STMP1 
83$ 


MP2 


>CLEAR THE ‘RELEASE ERROR " INDICATOR 
: FORM THE ADDRESS OF RMDS FOR TYPEOUT 
HE I/0 BASE ADDRESS 
ga ISON CONSTANT 
;SELECT PORT 
:GET THE DRIVE” STATUS REGISTER FROM PORT A. 
DONT CARES 


> CLEAR DON 
;COPY IT INTO '$TMP 
: CLEAR PORT DEPENDENT BITS FROM THE COPY 


T B. 
“GET THE DRIVE STATUS REGISTER FROM PORT B. 
3 R DONT CARES 


;COPY IT INTO ‘$TMP1' 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 


:IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


R IF. NOT 


SE ES SE eS ae 


SEQ 0157 


Ste we 244 DU POR TST 1 
T40 ORT ‘A* SET VOLUME VALID TEST 


052750 


053142 
053144 


053146 


0531 
05315 
053154 


001124 


50 
0 0057357 001300 
007406 
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001126 
001240 
000010 


001240 
001126 
000010 


001254 
001126 


001126 


001126 
001240 


TST STMPO SREGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 85$ ;BR IF NOT 
EMT 46 
JMP 87$ iBYPASS THE REST OF THE CHECKS 
83$: MOV $TMP2,$BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
MOV PORTB,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOVB PORTB,RMCS2(RO) ; SELECT PORT 8B. 
TST $TMPO : SEE IF STATUS EQ 0 FROM PORT A 
BEQ 84$ :BR IF ZERO 
MOV PORTA,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV $STMP3,$BDDAT ; "BAD DATA’ mS ERROR TYPE OuT 
MOVB PORTA,RMCS2(RO) ; SELECT PORT 
TST $STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
BNE 85$ ;BR IF 
84$: nad ees SET ‘RELEASE ERROR’ INDICATOR 
85$: MOV $TMP2 , $BDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA,PTNBR iC E PORT NUMBER 
BIC HATA! VV,$BDDAT “DON! T CHECK ATTN BIT OR VV BIT 
CMP SGDDAT , SBDDAT ALL BITS OK ? 
ne _ “BR IF OK FROM PORT A. 
86$: MOV $STMP3,$BDDAT : CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB,PTNBR ; CHANGE PORT NUMBER 
BIC HATA!VV,$BDDAT ;DON'T CHECK ATTN BIT OR VV BIT 
CMP SGDDAT,$BDDAT ;SEE IF READ OK FROM PORT B. 
BEQ 87$ ;BR IF OK 
EMT 7 
87$: NOP 
50$: SCOPE 


erat. ar a et ike “ie eet 


S RTEST 41 T "B* SET VOLUME VALID TEST 
>*VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 


** 

;* A. WITH PORT "B* SELECTED, RESET AND SET ‘UNIT READY’’ 
;* STATUS USING DIAGNOST IC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT ‘VOLUME VALID'’ IS RESET AND 


ATTENTION IS SET. 


ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
if tet THAT ATTENTION IS RESET AND THAT VOLUME VALID 


@ 


RELEASE THE DRIVE FROM PORT 'B* AND SELECT THE gt: FOR 
PORT ‘A*. VERIFY THAT ATTENTION IS STIL SET AND T 
VOLUME VALID IS STIL RESET. 


ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 


Be Be Be Be Be Be Be Be Be Be Be 


ns: a epnnneneneRRA MR eE eH HD OH 
a | 


i) 
ny 


PORT 'A' THEN RELEASE PORT ‘A’. 
F a PEE he Fn Pee Fee ere re Pe ee rn 
TST41: 
TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
BEQ 2$ “BR IF NOT 


SE Ee ae ee 


SEQ 0138 


| RMO5/3/2 DU POR TST 1 
PORT *B* SET VOLUME VALID TEST 


053156 1 
Ree ier 000 


sVERIFY THAT ATA = 
CLR 


H 16 
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00002 BPL 1$ :BR IF JUST ENTERED TEST 
137 003074 MP EXEC sRETURN & GET NEXT TEST NUMBER 
12737 177777 001300 18: MOV #=1, KYBCTL :SET SINGLE TEST INDICATOR 
12737 053206 001106 2%: MOV #TEST41,$LPADR SETUP SCOPE LOOP ADDRESS 
12737 053206 001110 ane MOV #TEST41,$LPERR :SETUP ERROR LOOP ADDRESS 
12737 000041 001102 MOVB  #41,$TSTNM :MOVE #41 TO TEST NUMBER 
12706 001100 MOV #STACK,SP :LOAD THE STACK POINTER 
12737 000012 001176 MOV #10.,$TIMES ::D0 10. ITERATIONS 
;SEIZE PORT B BY WRITING THE MAINTENANCE REGISTER,RMMR1. SET 
AND RESET ‘MAINTENANCE UNIT READY'’ TO CAUSE VOLUME VALID TO 
“RESET AND ATTENTION TO SET 
:SEIZE THE DRIVE THROUGH PORT 8 
053226 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
053234 013737 001226 001242 MOV PORTB,SEIZPT : STORE SEIZING PORT'S ADDRESS 
653242 012760 000001 000024 MOV #DMD,RMMR1(R WRITE DMD INTO RMMR1 
053250 013737 001224 001244 MOV PORTA, OPPRT : ‘OPPOSITE’ PORT ADDRESS 
053256 012760 001001 000024 MOV #DMD I MUR - MMR (RO) :SET UNIT READY 
053264 012760 000000 000024 MOV #0, RMMR1 (RO) “RESET DIAGNOSTIC MODE 


1,VV = 0 FOR PORT B 


053272 005037 001250 CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
053276 016037 000012 001126 MOV RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 
053304 012737 000012 001122 MOV #RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
053312 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
053316 012737 100000 001124 MOV WATA.SGDDAT WHAT REGISTER SHOULD BE 
053324 013737 001126 001164 MOV SBDDAT,STMPO © ;MOVE REGISTER CONTENTS TO "STMPO* 
053332 042737 077777 001164 BIC M*CATA,STMPO ; SAVE SPECIFIED BITS 
053340 023737 001124 001164 CMP SGDDAT . STMPO OMPARE THE BITS 
053346 001414 ) BEQ 66$ “BR IF OK 
053350 013737 001126 001174 MOV SSDDAT.STMP4 =: COPY ‘BAD DATA' 
053356 042737 100000 001174 BIC HATA, STMP4 , :CLEAR THE MASKED BITS 
3364 053737 001174 001124 BIS STMP4,$GDDAT § : ‘OR’ WITH GOOD DATA FOR TYPEOUT 
053372 104064 EMT 64 
053374 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053400 000240 - 66$: NOP 
053402 005037 001250 CLR CKERR ;CLEAR THE ‘CHECK ERROR' INDICATOR 
C53406 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ";GET CONTENTS OF RMDS 
053414 012737 000012 001122 MOV #RMDS,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
053422 060037 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
053426 001124 CLR $GDDAT “WHAT REGISTER SHOULD BE 
053432 013737 001126 001164 MOV SBDDAT,.$TMPO — :MOVE REGISTER CONTENTS TO 'STMPO' 
053440 042737 177677 001164 BIC #*CVV,$TMPO ;SAVE SPECIFIED BITS 
053446 023737 001124 001164 CMP SGDDAT,STMPO © ; COMPARE THE BITS 
053454 001414 BEQ 68$ :BR IF OK 
053456 013737 001126: 001174 MOV SBDDAT,$TMP4 § ;COPY ‘BAD DATA’ 
053464 042737 000100 001174 BIC #VV,STMPG :CLEAR THE MASKED BITS 
053472 053737 001174 001124 BIS $TIMP4,$GDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
053500 104065 EMT 5 
053502 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
053506 000240 68$: NOP 


; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B 


EE EE SSeS ee ot oe ee eee 


SEQ 0159 


| es RMO5/3/2 DU POR TST 1 
PORT "B* SET VOLUME VALID TEST 


053510 
053516 


053524 
053530 


053742 


053744 
C53752 
053760 


054056 


012760 
012760 


113760 
013737 
012760 


005037 
012737 
06 


016037 


000011 
000021 


001250 
0000 


001126 
000100 
001174 
001250 


001124 
001126 
153770 
001174 


001250 


001226 
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000000 MOV #11,RMCS1(RO) :DRIVE CLEAR 
000000 MOV #21.RMCS1(RO) “READ IN PRESET 
:VERIFY ATA = 0 AND VV = 1 FOR PORT B 
CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO),$BDDAT “;:GET CONTENTS OF RMDS 
001122 MOV #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
001124 MOV #VV,$GDDAT ;WHAT REGISTER SHOULD BE 
001164 MOV $BDDAT,$TMPO  ;MOVE REGISTER CONTENTS TO '$TMPO’ 
001164 BIC #°CVV.$TMPO ;SAVE SPECIFIED BITS 
001164 CMP $GDDAT,$TMPO © ;COMPARE THE BITS 
BEQ 70$ “BR IF OK 
001174 MOV $BDDAT,$TMP4 § : COPY ‘BAD DATA’ 
001174 BIC #VV,STMPG :CLEAR THE MASKED BITS 
001124 81s STMPS SGDDAT :'OR' WITH GOOD DATA FOR TYPEOUT 
i COM CKERR :SET THE REGISTER COMPARE ERRO® INDICATOR 
CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
001122 MOV #RMDS , $BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RO, $8DADR ADD RH/RM BASE ADDRESS 
001124 MOV aMOL 'PGM DPR: DRY! VV. SGDDAT ;WHAT REGISTER SHOULD BE 
001164 MOV SBDDAT,$TMPO —§ ;MOVE REGISTER CONTENTS TO °$TMPO’ 
001164 BIC #C158970, $TMPO ;SAVE SPECIFIED BITS 
001164 CMP $GDDAT.STMPO —«; COMPARE THE BITS 
BEQ 72$ BR IF OK 
001174 MOV SBDDAT.$TMP4 §: COPY ‘BAD DATA’ 
001174 BIC #153770,$TMP4 :CLEAR THE MASKED BITS 
001124 BIS STMPS ,$GDDAT =: "OR* WITH GOOD DATA FOR TYPEOUT 
COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
72$: NOP 


sRELEASE PORT B AND SELECT PORT A 
:VERIFY THAT ATA = 1 AND VV = 0 FOR PORT A 


sRELEASE THE DRIVE FROM PORT B 


000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000000 MOV #13,RMCS1(RO)  ; ISSUE RELEASE THROUGH PORT B 
: VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR ;CLEAR THE “RELEASE ERROR ° INDICATOR 
001122 MOV ARMDS , SBDADR + FORM THE ADDRESS OF RMDS FOR TYPEOQUT 

ADD RO, $BDADR ;ADD THE I/O BASE ADDRESS 
001124 MOV #MOL'!PGM'!DPR!DRY.$GDDAT ; COMPARISON CONSTANT 
000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
001170 MOV RMDS(RO),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
001170 BIC APIP!WRL‘OM,$TMP sCLEAR DONT CARES 
001164 MOV $TMP2 ,$TMPO ;COPY IT INTO '$T 
001164 BIC HATA!VV,STMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
001172 MOV RMDS(RO),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
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PORT *B* SET VOLUME VALID TEST SEQ 0141 
054064 042737 024001 001172 BIC #PIP!WRL!OM,$TMP3 CLEAR, DONT CARES 

054072 013737 001172 001166 MOV $TMP3,STMP1 :COPY IT INTO '$TMP 

054100 042737 100100 001166 BIC #ATAIVV,STMP1 ZCLEAR-PORT DEPENDENT BITS FROM THE COPY 
054106 023737 001164 001166 CMP $TMPO,$TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
054114 001006 BNE 74$ :BR IF NOT 

054116 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
054122 001037 BNE 76$ :BR IF 

054124 104046 EMT 46 

054126 000137 054312 JMP 78S ;BYPASS THE REST OF THF CHECKS 

054132 013737 001170 001126 74$: MOV $TMP2,$BDDAT  ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
054140 013737 001226 001240 MOV —s«- PORTB. PTNBR {SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054146 113760 001226 000010 MOVB § PORTB.RMCS2<RO) :SELECT PORT B. 

054154 005737 001164 TST $TMPO ;SEE IF STATUS EQ 0 FROM PORT A. 

054160 001414 BEQ 75$ IF ZERO 

054162 013737 001224 001240 MOV PORTA,PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054170 013737 001172 001126 MOV $TMP3,$8DDAT "BAD DATA’ FOR ERROR TYPE OUT 

054176 113760 001224 000010 MOVB = PORTA.RMCS2(RO) :SELECT PORT A. 

054204 005737 001166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 

054210 001004 BNE 76$ BR IF NOT 

654212 012737 177777 001254 75$: MOV  #=1,RELERR :SET "RELEASE ERROR’ INDICATOR 

054220 104022 EMT 22 

054222 013737 001170 001126 76$: MOV $TMP2,$BDDAT § ; LOOK FOR BIT FAILURES WHEN RMDS READ 
054230 013737 001224 001240 MOV —s— PORTA. PTNBR : CHANGE PORT NUMBER 

054236 042737 100100 001126 BIC WATA!VV SBDDAT DON'T CHECK ATTN BIT OR VV BIT 

054244 023737 001124 001126 CMP $GDDAT,$BDDAT ALL BITS OK ? 

054252 001401 BEQ 77$ :BR IF OK FROM PORT A. 

054254 104007 EMT 7 
054256 013737 001172 001126 77$: MOV § $TMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
054264 013737 001226 001240 MOV -—Ss PORTB.. PTNBR CHANGE PORT NUMBER 

054272 042737 100100 001126 BIC WATA!VV,$BDDAT DON'T CHECK ATTN BIT OR VV BIT 

054300 023737 001124 001126 CMP § $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 

054306 001407 BEQ 78$ :BR IF OK 

054310 104007 EMT 7 

054312 000240 78$: NOP 

054314 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;:SELECT PORT A 

054322 013737 001224 001240 MOV -—s- PORTA, PTNBR = ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
054330 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 

054334 016037 000012 001126 MOV —«-RMDS(RO) ,SBDDAT °:GET CONTENTS OF RMDS 

054342 012737 000012 001122 MOV §- #RMDS,$BDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
054350 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 

054354 012737 100000 001124 MOV = #ATA, SCDDAT ;WHAT REGISTER SHOULD BE 

054362 013737 001126 001164 _ MOV —- $BDDAT,$TMPO © ;:MOVE REGISTER CONTENTS TO ‘$TMPO* 

054370 042737 077777 001164 BIC #*CATA‘STMPO :SAVE SPECIFIED Bits 

054376 023737 001124 001164 CMP - $GDDAT.$TMPO ° ; COMPARE THE BITS 

054404 001414 BEQ 79$ :BR IF OK 

054406 013737 .001126 001174 MOV $BDDAT.STMP4 = : COPY “BAD DATA' 

054414 042737 100000 001174 BIC HATA, STMPG :CLEAR THE MASKED BITS 

054422 053737 001174 001124 BIS $TMP4,$GDDAT |: "OR" WITH GOOD DATA FOR TYPEOUT 

054430 104064 EMT 64 | 

054432 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
054436 000240 79$: NOP 

054440 005037 001250 CLR CKERR ;CLEAR THE "CHECK ERROR" INDICATOR 

054444 016037 000012 001126 MOV -—«RMDS(RO),$BDDAT °;GET CONTENTS OF RMDS 

054452 012737 000012 001122 MOV §_ #RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
054460 060037 001122 ADD RO, $BDADR ;ADD_RH/RM BASE ADDRESS 

054464 005037 001124 CLR $GDDAT WHAT REGISTER SHOULD BE 


054470 013737 001126 001164 MOV $BDDAT , $TMPO : MOVE REGISTER CONTENTS TO ‘$TMPOQ' 
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PORT *B’ SET VOLUME VALID TEST SEQ 0142 
054476 042737 177677 001164 BIC #°CVV,STMPO :SAVE SPECIFIED BITS 
054504 023737 001124 001164 CMP SGDDAT,$TMPO © =COMPARE THE BITS 
054512 001414 BEQ 81$ ‘BR IF OK 
054514 013737 001126 001174 MOV $BDDAT,$TMP4 COPY ‘BAD DATA’ 
054522 042737 000100 001174 BIC #VV,STMPG :CLEAR THE MASKED BITS 
054530 053737 001174 001124 BIS S$TMP4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOQUT 
054536 104065 EMT 5 
054540 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
054544 000240 81$: NOP 
; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A. 
= THEN RELEASE PORT A 
054546 012760 000011 000000 MOV #11,RMCS1(RO)  ;:DRIVE CLEAR 
054554 012760 000021 000000 MOV #21,RMCS1(RO) :READ IN PRESET 
:RELEASE THE DRIVE FROM PORT A 
054562 113760 001224 000010 MOVB  PORTA.RMCS2(RO) ;SELECT PORT A 
054570 013737 001224 001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
054576 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
: VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
054604 005037 001254 CLR RELERR CLEAR THE ‘RELEASE ERROR ' INDICATOR 
054610 012737 000012 001122 MOV #RMDS .SBDADR —§ ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
054616 060037 001122 ADD RO, $BDADR :ADD THE 1/0 BASE ADDRESS 
054622 012737 011600 001124 MOV #MOL 'PGM'! DPR! DRY. $GDDAT {COMPARISON CONSTANT 
054630 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT 
054636 016037 000012 007170 MOV RMDS(RO).$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
054644 042737 024001 001170 BIC #PIP!WRL ‘OM, $TMP2? :CLEAR DONT CARES 
054652 013737 001170 001164 MOV $TMP2 ,STMPO “COPY IT’ INTO '$TMPO 
042737 100100 001164 BIC WATA'VV,STMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
054666 113760 001226 1 MOVB  PORTS,RMCS2(RO) :SELECT PORT 
054674 016037 2 001172 MOV RMDS(RO),$TMP3 -:GET THE DRIVE STATUS REGISTER FROM PORT B. 
054702 042737 024001 001172 BIC #PIP'WRL'OM,$TMPS CLEAR DONT CARES 
054710 013737 001172 001166 MOV STMP3,STMP1 :COPY IT INTO "$TMP1' 
054716 042737 100100 001166 BIC HATA'VV,STMP1 ;:CLEAR PORT DEPENDENT BITS FROM THE COPY 
054724 023737 001164 -001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
054732 001006 BNE 83$ :BR IF NOT 
054734 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
054740 001037 BNE 85$ *BR IF NOT 
054742 104046 EMT 46 
054744 000137 055130 JMP 87$ :BYPASS THE REST OF THE CHECKS 
054750 013737 001170 001126 83$: MOV S$TMP2,$BDDAT §_:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
054756 013737 001226 001240 MOV PORTB,PTNBR =SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
054764 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT 
054772 005737 001164 TST $TMPO >SEE IF STATUS EQ 0 FROM PORT A. 
054776 001414 BEQ 84$ “BR IF ZERO 
055000 013737 001224 001240 MOV PORTA,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
055006 013737 001172 001126 MOV .$TMP3,$BDDAT  :'BAD DATA' FOR ERROR TYPE OUT 
055014 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
055022 005737 001166 TST STMP1 :SEE IF STATUS: EQ ZERO FROM PORT PB. 
055026 001004 BNE 85$ :BR IF NOT 
030 012737 177777 001254 84%: MOV #-1,RELERR “SET "RELEASE ERROR' INDICATOR 
055036 104022 EMT 22 : 
055040 013737 001170 001126 85$: MOV $TMP2,$BDDAT § ;LOOK FOR BIT FAILURES WHEN KMDS READ 
055046 013737 001224 001240 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
055054 042737 100100 001126 BIC #ATA!VV,$BDDAT DON'T CHECK ATIN BIT OR Vv BIT 
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SEQ 0143 
CMP SGDDAT,$BDDAT =;AL! BITS OK ? 
BE 0 86s :BR IF OK FROM PORT A. 
86$: MOV STMP3,SBDDAT §; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB.PTNBR ; CHANGE PORT NUMBER 
BIC WATA'VV,$BDDAT DON'T CHECK ATIN BIT OR Wy BIT 
CMP SGDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
BEQ 87$ :BR IF OK 
EMT ? 
87$: NOP 
50$: SCOPE 


SERA AAA AAA AAA AEE KR 


: TEST 42 TEST PORT ‘A’ TIMEOUT DOES NOT RESET DRIVE 
:SVERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 
-* 
:* A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
:* B. WRITE 1°S INTO RMER1 THROUGH PORT ‘A’ TO FORCE AN ATTENTION. 
- 
:* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
:* NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A' AND NOT SET FOR 
:* PORT 'B’; AND THAT BOTH PORTS SEE 1°S IN THE ERROR REGISTER. 
** 
+ RERRERRRNRNRARTENRERtEetereReERENeNAReenananeRaeeeeRteneeeneane 
TST42: 

TST KYBCTL : PERF ORMING ONLY SINGLE TEST ? 

BEQ 2$ F NOT 

BPL 1$ “BR IF JUST ENTERED TEST 

JMP EXEC :RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
2$: MOV ATEST42,$LPADR :SETUP SCOPE LOOP ADDRESS 
vaca MOV #TESTG42.$LPERR :SETUP ERROR LOOP ADDRESS 

“ MOVB #42.$TSTNM sMOVE #42 TO TEST NUMBER 
MOV #STACK, SP [LOAD THE STACK POINTER 
MOV #2. $TIMES >:DO 2. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT &#A 
CLR S(RO) sSEIZE THE DRIVE 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 
MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 
CLR RMDS (RO) sSEIZE THE DRIVE THROUGH PORT '‘B' 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 
SEIZE THE DRIVE THROUGH PORT A 
MGVB PORTA,RMCS2(RO) ;SELECT PORT A 
MOV PORTA,SEIZPT ;STORE SEIZING PORT'S ADDRESS 


A a SS sss >see 


rt ee 
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MACRO V04.00 
T *a’ T meouT DOES NOT RESET DRIVE SEQ 0144 
000012 CLR RMDS (RO) :WRITE RMDS 
601226 001244 MOV PORTB, OPPRT : OPPOSITE’ PORT ADDRESS 
: FORCE AN ATTENTION BY SETTING ERRORS. 
177777 000014 MOV #-1,RMER1(RO) SET ERROR BITS 
;START THE TIMER 
001256 CLR TIME :CLEAR THE E APSED TIME COUNTER 
003720 001260 MOV #2000.,WATCH = SET WATCH TO 2000. MS 
001226 000010 MOVB  PORTB.RMCS2(RO) °: SELECT PORT B 
001226 001240 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:WAIT FOR DRIVE TO TIMEOUT 
000012 1$: TST RMDS (RO) :wAIT FOR THE DRIVE TO BE RELEASED 
BNE 2$ “BR IF DRIVE RELEASED 
001260 TST WATCH :WATCH AT ZERO ? 
BNE 1$ “BR IF 
v EMT 36 
001224 000010 MOVB  PORTA,RMCS2(RO) ;SELECT PORT 
001224 001240 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
:THE ERROR BIT ("ERR") IN RMDS SHOULD STILL BE SET . 
001250 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
12 001126 MOV RMDS(RO),SBDDAT °:GET CONTENTS OF RMDS 
12 001122 MOV S,$8D : REGISTER ADDRESS OF ERROR MESSAGE 
001122 ADD , SBDADR :ADD RH/RM BASE ADDRESS 
04 001124 MOV RR,SGDDAT ;WHAT REGISTER SHOULD BE 
001126 001164 MOV SBDDAT.STMPO  ;MOVE REGISTER CONTENTS TO ‘S$TMPO* 
137777 001164 BIC #*CERR.STMPO ;:SAVE SPECIFIED BITS 
001124 001164 CMP SGDDAT,STMPO ° ;COMPARE THE BITS 
BEQ 66$ “BR IF OK 
001126 001174 MOV SBDDAT,STMP4 = :COPY "BAD DATA 
001174 BIC #ERR, STMP4 CLEAR THE MASKED BITS 
001174 001124 BIS STMPS ,SGDDAT =*OR' WITH GOOD DATA FOR TYPEOUT 
001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
66$: NOP 
;THE ERROR REGISTER SHOULD CONTAIN 1'S 
001250 CLR CKERR CLEAR THE "CHECK ERROR" INDICATOR 
14 001126 MOV RMER1(RO),$BDDAT :GET CONTENTS OF RMER1 
14 001122 MOV R1,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
1122 ADD - $80 RH/RM BASE ADDRESS 
177777 001124 MOV RO San. $GDDAT “WHAT REGISTER SHOULD BE 
1124 001126 CMP SGDDAT,$B8DDAT :IJS THE REGISTER OK ? 
a ~ r F OK 
001250 = COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


: THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 


SO ee ee ee eee eee _ 
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| T42 TEST PORT ‘A* TIMEOUT DOES NOT RESET DRIVE SEQ 0145 
| 005037 001250 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
| 055570 016037 000012 001126 MOV RMDS(RO) ,SBDDAT ";GET CONTENTS OF RMDS 
| 055576 012737 000012 001122 MOV #RMDS,$BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
| 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
055610 012737 1 001124 MOV WATA,SGDDAT ; WHAT REGISTER SHOULD BE 
| 055616 013737 001126 001164 MOV SBDDAT,$TMPO =; MOVE REGISTER CONTENTS TO ‘$TMPO’ 
055624 042737 077777 001164 BIC #*CATA.$TMPO ;: SAVE SPECIFIED D BITS 
| 055632 023737 001124 001164 CMP $GDDAT,$TMPO ° ;COMPARE THE BITS 
055640 001414 BEQ 70% “BR IF OK 
| 055642 013737 001126 001174 MOV SBDDAT,$TMP4 = : COPY "BAD DATA’ 
| 055650 04273 001174 BIC HATA, $TMPG “CLEAR THE MASKED BITS 
055656 053737 001174 001124 als STMPS ,SGDDAT  :'OR* WITH GOOD DATA FOR TYPEOUT 
055666 005137 001250 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
055672 000240 70$: NOP 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
655674 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR ‘ INDICATOR 
055700 012737 000012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
055706 060037 001122 ADD RO, $BDADR sADD THE 1/0 BASE ADDRESS 
055712 012737 051700 001124 MOV #51700,$GDDAT ;COMPARSION CONSTANT 
055720 113760 001224 00001 MOVB = PORTA, RMCS2(RO) SELECT TA 
055726 016037 2 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE” STATUS REGISTER FROM PORT A. 
34 042737 024001 001170 BIC #PIP!WRL'OM,$TMP2 :CLEAR DONT CARES 
055742 013737 001170 001164 MOV STMP2,STMPO sCOPY IT INTO '$TMPO' 
055750 042737 100100 001164 BIC #ATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
055756 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
055764 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
055772 042737 024001 001172 BIC #PIP'WRL'OM, $TMP3 :CLEAR DONT CARES 
05 013737 001172 001166 MOV STMP3,STMP1 7COPY IT INTO *$TMP1' 
05 04273 100 001166 BIC #ATA'VV,STMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
056014 023737 001164 001166 CMP STMPO,STMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
056022 001 BNE 72$ “BR IF NOT 
056024 005737 001164 TST $TMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
056030 001045 BNE 74$ ‘BR IF NOT 
056032 104046 EMT 46 
000137 056234 JMP 76$ ;BYPASS THE REST OF THE CHECKS 
056040 013737 001170 001126 72$: MOV STMP2,$BDDAT  ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
013737 001226 001240 MOV PORTB,PTNBR : SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056054 113760 001226 000010 MOVB  PORTB.RMCS2(RO) =SELECT PORT B. 
056062 005737 001164 TST $TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
056066 001414 BEQ 73$ :BR IF ZERO 
056070 013737 001224 001240 MOV PORTA. PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
056076 013737 001172 001126 MOV STMP3,SBDDA ="BAD DATA’ FOR ERROR TYPE OUT 
056104 113760 001224 000010 MOVB =~ PORTA. RAIS? (RO) :SELECT PORT A. 
056112 005737 001166 TST $TMP1 -SEE IF STATUS EQ ZERO FROM PORT B. 
056116 001012 BNE 74$ “BR IF NOT 
056120 012737 177777 001254 73$: Moy #-1,RELERR >SET "RELEASE ERROR’ INDICATOR 
056126 012760 000011 000000 MOV #11.RMCS1(RO)  =:CLEAR THE DRIVE 
056134 012760 000013 900000 MOV #13.RMCS1(RO)  =RELEASE THE DRIVE 
056142 104026 EMT 26 
056144 013737 001170 001126 74$: MoV STMP2,$BDDAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
056152 013737 001224 001240 MOV PORTA.PTNBR : CHANGE PORT NUMBER 
056160 042737 100000 001126. BIC #ATA, $BDDAT “DON'T CHECK THE ATTN BIT 
056166 023737 001124 001126 CMP $GDDAT,$BDDAT “ALL BITS Ok ? 
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SEQ 0146 


BE 0 75s :BR IF OK FROM PORT A 
75$: MOV $TMP3,$BDDAT —; CHECK RMDS FOR BIT FAILURES =~ FROM PORT B. 

MOV PORTB.PTNBR ; CHANGE PORT NUMBER 

BIC HATA, $BDDAT “DON'T CHECK THE ATTN BIT 

CMP $GDDAi,$BDDAT  :SEE IF READ OK FROM PORT B 

BEQ 76$ “BR IF OK 

EMT 7 
76$: NOP 


;THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 

MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD RO, $BDADR ;ADD_RH/RM BASE ADDRESS 

CLR DDAT ;WHAT REGISTER SHOULD BE 

MOV SBDDAT , STMPO ;MOVE REGISTER CONTENTS TO ‘$TMPO’ 

BIC #~CATA,STMPO ;SAVE SPECIFIED BITS 

CMP SGDDAT , STMPO ; COMPARE THE BITS 

BEQ 77$ ; F OK 

MOV SBDDAT , STMP4 [COPY "BAD DAT 

BIC HATA, STMP4 CLEAR THE MASKED BITS 

oa STMPS, » SGDDAT ;'OR* WITH GOOD DATA FOR TYPEOUT 

COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
77$: NOP 


:CLEAR ATTENTION BIT FOR PORT A 


MOVB PORTA,RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) :SEIZE THE DRIVE 

MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13, “RMCS1(RO) RELEASE THE DRIVE 
3$: SCOPE ;LOOP ? 
RRR RENEE RRR RRR REE RARER EERE RE 
:*TEST 43 TEST PORT *B* TIMEOUT DOES NOT RESET DRIVE 


** 
s*VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 


:x A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
-* 
;* B. WRITE 1°S INTO RMER1 THROUGH PORT '‘B'. 
-* 
:* (C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
:* NEUTRAL; THAT ATTENTION IS SET FOR PORT *B' AND IS NOT SET FOR 
: PORT ‘A’; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 
-* 
°: -- MPBRASSAAASLA£L£A£2 2 SZ ESEESSALLASALEARARA RRA RAR RS AAR ASRAAS ALARA AAAS A SSDS 
TST43: 

TST —KYBCTL ;PERFORMING ONLY SINGLE TEST ? 

EQ $ :BR IF NOT 

BPLStiédTS :BR IF JUST ENTERED TEST 


— ee 


. 3 
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;sRETURN & GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
ETUP SCOPE LOOP ADDRESS 
: SETUP ERROR LOOP ADDRESS 


EXEC 

#-1 ,KYBCTL 
#TEST43,$LPADR 
ATEST43,$LPERR 


wr 


#43, $TSTNM s:MOVE #43 TO TEST NUMBER 
H#STACK,SP sLOAD THE STACK POINTER 
#2.,$TIMES 3:D0 2. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


PORTA,RMCS2(RO) ;SELECT PORT #A 
RMD ) ;SEIZE THE DRIVE 
#11,RMCS1(RO) ;ISSUE DRIVE CLEAR 


0 ;RELEASE THE DRIVE 
PORTB,.RMCS2(RO) ; SEL LECT PORT #6 
RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT ‘B’ 
#11,RMCS1 (RO) 


ZISSUE DRIVE CLEAR 
#13.RMCS1(RO) RELEASE THE DRIVE 


;SEIZE THE DRIVE THROUGH PORT B 


PORTB ,RMCS2(RO) 
PORTB,SEIZPT 
RMDS (RO) 

PORTA, OPPRT 


;SELECT PORT B 
;STORE SEIZING PORT'S ADDRESS 
sWRITE RMDS 


J 
; OPPOSITE* PORT ADDRESS 


;FORCE AN ATTENTION BY SETTING ERRORS. 


#-1,RMER1(RO) SET ERROR BITS 


:CLEAR THE ELAPSED TIME COUNTER 


TIME 
#2000. ,WATCH WATCH TO — MS 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 


PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;WAIT FOR DRIVE TO TIMEOUT 


RMDS (RO) :WAIT FOR THE DRIVE TO BE RELEASED 
2$ ;BR_IF DRIVE RELEASED 

WATCH ;WATCH AT ZER 

1$ ;BR IF NOT 

36 

PORTB,RMCS2(RO) ;SELECT 


PORT B 
‘PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;THE ERROR BIT (‘ERR’) IN RMDS SHOULD STILL BE SET 


CKERR :CLEAR THE ‘CHECK ERROR" INDICATOR 
RMDS (RO) , SBDDAT 


;GET CONTENTS OF RMD 
#RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDADR ADD RH/RM BASE ADDRESS 


MRBO RMO5/3/2 DU POR TST 1 MACRO V04.00 

TEST PORT ‘B* TIMEOUT DOES NOT RESET DRIVE 
056420 137 003074 JMP 
056424 012737 177777 001300 1$: MOV 
056432 012737 056446 001106 2$: MOV 
056440 012737 056446 001110 MOV 
056446 TESTS3: 
056446 112737 001102 MOVB 
056454 012706 001100 MOV 
056460 012737 000002 001176 MOV 

56466 113760 001224 000010 MO 
056474 5060 000012 CLR 
056500 012760 000011 000000 MOV 

56506 012760 000013 000000 MOV 
056514 113760 001226 000010 MOVB 
056522 005060 000012 CLR 
056526 012760 000011 000000 MOV 

56534 012760 000013 000000 MOV 
056542 113760 001226 000010 MOVB 
056550 013737 001226 001242 MOV 
056556 005060 000012 CLR 
056562 013737 001224 001244 MOV 
056570 012760 177777 000014 MOV 

: START THE TIMER 

056576 005037 001256 CLR 
056602 012737 003720 001260 MOV 
056610 113760 001224 000010 

056616 013737 001224 001240 MOV 
056624 005760 000012 1$: TST 
056630 001004 BNE 
056632 005737 001260 TST 

56636 001372 BNE 
056640 104036 EMT 
056642 2$: 

56642 113760 001226 000010 MOVB 
056650 015737 001226 001240 MOV 
056656 005037 001250 CLR 

56662 016037 0012 001126 MOV 
056670 012737 01 001122 MOV 
056676 060037 001122 ADD 
056702 012737 040000 001124 MOV 





WERR SCDDAT “WHAT REGISTER SHOULD BE 


SEQ 0147 


ZR 
143 


—— ee ee ee ee 


MRBO RMO5/3/2 DU POR TST 1 


MACRO V04.00 


TEST PORT 'B* TIMEOUT DOES NOT RESET DRIVE 


056710 


057146 


057150 


057254 


013737 
37 


04 
013737 


001126 
40000 
001174 
001250 


001250 


001124 


001250 


001250 


001124 
001126 


001250 


001254 
000012 


001164 


001174 
001174 
001124 


001126 
001122 


001124 
001126 


~— MOO 


S88 Ssss SS 
—w2 aw) 2d —) aed oe — —)I 
— — —) — —) —) ——) — — 


Le LS 


001122 
001124 
000010 


001166 


66$ : 
: THE ERROR REGISTER SHOULD CONTAIN 1°S 


68$: 
: THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 


70$: 
: VERIFY 
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SBDDAT , $TMPO s;MOVE REGISTER CONTENTS TO ‘$TMPO’ 
HACERR,STMPO ;SAVE SPECIFIED BITS 

$SGDDAT , STMPO ;COMPARE THE BITS 

66$ :BR IF OK 

SBDDAT ,STMP4 ;COPY ‘BAD DATA’ 

#ERR, STMP4 :CLEAR THE MASKED BITS 

_—— ;"OR' WITH GOOD DATA FOR TYPEOUT 

CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMER1(RO),$BDDAT ;GET CONTENTS OF RMER1 
eg hl $BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO, $BDADR :ADD RH/RM BASE ADDRESS 

#177777,$GDDAT :WHAT REGISTER SHOULD BE 

$GDDAT,$BDDAT  :1S THE REGISTER OK ? 

7 : IF OK 

CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


EAR THE ‘CHECK ERROR’ INDICATOR 
RMDS 


CKERR 2CL 
RMDS (RO), sSBDDAT sGET CONTENTS Or 


#RMDS , SBDADR ORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, SBDADR ;ADD RH/RM BASE ADDRESS 
#ATA, SGDDAT : WHAT REGISTER SHOULD BE 
SBDDAT.$ sMOVE REGISTER CONTENTS TO ‘STMPO’" 
#“CATA,STMPO :SAVE SPECIFIED BITS 
SGDDAT , STMPO : COMPARE THE BITS 
$ ‘BR IF OK 
SBDDAT , STMP4 sCOPY ‘BAD DATA‘ 
HATA, STMP4 : CLEAR THE MASKED BITS 
: oe ;*OR* WITH GOOD DATA FOR TYPEOUT 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 


THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 





;CLEAR THE ‘RELEASE ERROR * INDICATOR 
;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
:ADD THE se nen hoa ‘<i 


DA : COMP 
Bao Psat: Sa sSELECT PORT A. 


RELERR 
#RMDS , SBDADR 


RMDS(RO),STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
APIP!WRL!OM,$TMP ;CLEAR DONT CARES 

STMP2 ,$T ;COPY IT INTO '$TMPO' 

HATA! VV, $TMP :CLEAR PORT DEPENDENT BITS FROM THE COPY 


>SELECT PORT B. 
“GET THE DRIVE STATUS REGISTER FROM PORT 8. 
AR DONT CARES 


sCLE 
:COPY IT INTO 'STMP1' 


MPO 
PORTB,RMCS2(RO) 
RMDS (RO) , STMP3 
#PIP!WRL'OM,$TMP 
$TMP3,$TMP1 


SEQ 0148 


| we er’ ee DU POR TST 1 


ee ee ee 
eee 


—— 


057262 


057510 


057512 


057632 


104007 
000240 


113760 
013737 


100100 
001164 


001164 


057510 


177777 
000011 
000013 
001170 
001224 


100000 
001124 


001172 


007124 


001224 


001126 
100000 
001174 
001250 


———— _— -——- ele 


E 
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A 


001240 
001126 
000010 


001254 


001126 


000010 
001240 


001126 
001122 


001164 
001164 
001164 


001174 
001174 
001124 


723: 


73$: 


74$: 


75$: 


76$: 


#ATA!VV,$TMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 


$TMPO, SMP! ils THE grays REGISTER THE SAME FROM BOTH PORTS ? 
$TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 


74$ ;BR IF NOT 


$ ;BYPASS THE REST OF THE CHECKS 
$STMP2 ,$BDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


TB, PTNBR 
PORTB,RMCS2(RO) ;SELECT PORT B. 
$STMPO 3 SEE id STATUS EQ 0 FROM PORT A. 
73$ :BR IF ZERO 
PORTA, PTNBR ; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
$TMP3,$BDDAT ; "BAD DATA’ F = ERROR TYPE OUT 
PORTA,RMCS2(RO) ;SELECT PORT 
gl SEE IF, STATUS EQ ZERO FROM PORT B. 
#-1 ,RELERR SET "RELEASE ERROR’ INDICATOR 
#11,RMCS1(RO) ;CLEAR THE DRIVE 
—_—- >RELEASE THE DRIVE 
STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA, PTNBR ; CHANGE PORT NUMBER 
#ATA, SBDDAT ;DON*T CHECK THE ATTN BIT 


$GDDAT,SBDDAT ALL BITS OK ? 
75$ ;BR IF OK FROM PORT A. 


4 
STMP3, — :CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB,PTNBR : CHANGE PORT NUMBER 


HATA, $BDDAT > DON’ T CHECK THE ATIN BIT 
SGDDAT, SBDDAT :SEE IF READ OK FROM PORT B. 
a “BR IF OK 


7 THE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 


77$: 


PORTA,RMCS2(RO) ;SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 

RMDS (RO), SBDDAT ;GET CONTENTS OF RMDS 


#RMDS SBDA ADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, ;ADD RH/RM BASE ADDRESS 

$GD AT ;WHAT REGISTER SHOULD BE 

SBDDAT .STMPO :MOVE REGISTER CONTENTS TO "STMPO' 
#*CATA,S$TMPO ;SAVE SPECIFIED BITS 

SGDDAT , STMPO ;COMPARE THE BITS 

77$ :BR IF OK 

SBDDAT , STMP4 :COPY "BAD DATA’ 

HATA, STMP4 ;CLEAR THE MASKED BITS 

eo :"OR* WITH GOOD DATA FOR TYPEOUT 
CKERR 7SET THE REGISTER COMPARE ERROR INDICATOR 


;CLEAR ATTENTICN BIT FOR PORT B 





SEQ 0149 


a ee ee ee 
—— 
FP 
wae 
WOO 


TEST PORT ‘B' 


113760 
00 


005737 


012737 


‘112737 


012706 
012737 


113760 
005060 


012760 


113760 
0137357 
005060 
013737 


CZRMRBO RMO5/3/2 DU POR TST 1 
143 TIMEOUT DOES NOT 


~—_ ——= — —- —— oe oe ee 


z 23 
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001226 000010 
000012 


000011 
000013 


001300 


003074 
177777 
057722 
057722 


000044 
001100 
000002 


001224 
000012 


001224 
001224 
000012 
001226 


000000 
000000 


001300 
001106 
001110 
001102 


001176 


000010 
000000 
000000 
000010 


000000 
000000 


000010 
001242 


001244 


3$: 


RESET DRIVE 


PORTB,RMCS2(RO) 
RO 


RMDS (RO) 
#11,RMCS1(RO) 
#13,RMCS1(RO) 


;SELECT PORT A&B 
:SE 


IZE THE DRIVE 
; ISSUE DRIVE CLEAR 


; RELEASE THE DRIVE 
:LOOP ? 


5 LARA KEAAAERARERAREEARAEEEEAREARARARAEAKHAERERRAERREER ERE 


s*TEST 44 


A. 
B. 
Cs 


ws. eaeeeentbone 


144: 


—yte 


1$: 
2$: 


TEST44: 


PORT 


“_" 


RETRIGGER BY DEMAND TEST 
** 
Wipe THAT 1AE PORT TIMEOUT ONE=SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 


SEIZE THE DRIVE THROUGH PORT ‘A‘ BY WRITING 0°S INTO RMDS. 
WAIT 500 MS AND READ RMDS THROUGH PORT ‘A’. 
VERIFY THAT THE TIMEOUT OCCURS WITHIN + Se - ee OF THE SPECIFIED 


TIME. 


(THE MEASUREMENT IS MADE FROM STEP * 


VERIFY oT. THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 


BIT I 


KEKE KKKKKKRKEKKEKKEKKEEAEEKKEKEEKEKKEKKKEAEKKEREKEEEKEKEEHKEKEKEKKEKKKKE 


KYBCTL 
2$ 
1$ 


EXEC 

4-1 ,KYBCTL 
ATEST44,$LPADR 
ATEST4S,$LPERR 


#44 ,STSTNM 
ASTACK, SP 
#2. ,$TIMES 


er uae ONLY SINGLE TEST ? 


7;BR IF NOT 

:BR IF JUST ENTERED TEST 
sRETURN & GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
:SETUP SCOPE LOOP ADDRESS 


:SETUP ERROR LOOP ADDRESS 


sMOVE #44 TO TEST NUMBER 
re aa STACK POINTER 


ITERATIONS 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB 
MOV 
CLR 
MOV 


PORTA, RMCS2(RO) 
RMDS (RO) 
#11,RMCS1(RO) 
#13.RMCS1 (RO) 
PORTB,RMCS2 (RO) 
RMDS (RO) 


#11,RMCS1 (RO) 
#13,RMCS1 (RO) 


;SEIZE THE DRIVE THROUGH PORT A 


PORTA, RMCS2(RO) 
PORTA, all 


RMDS (RO 
PORTB,OPPRT 


;START THE TIMER 





sSELECT PORT #A 

sSEIZE THE DRIVE 

: ISSUE DRIVE CLEAR 

;RELEASE THE DRIVE 

:SELECT PORT 46 

;SEIZE THE DRIVE THROUGH PORT ‘B" 
: ISSUE DRIVE CLEAR 

;RELEASE THE DRIVE 


; SELECT 


PORT 
;STORE SEIZING PORT" S ADDRESS 
;WRITE RMDS 
; OPPOSITE’ PORT ADDRESS 


ee ee ee ee rr ae nk re re 


SEQ 0150 


SS 


” aaa wae t2¢ DU POR TST 1 


! 


*A* RETRIGGER BY DEMAND TES 


060044 

060050 
060056 
060062 


060064 
060070 


060134 


060142 


001375 


005037 
012737 


005760 


013737 


005037 


012760 


001256 
000764 
001260 


001256 
003720 


000012 
601260 


001256 


001254 


001164 
001164 


001164 
001224 


177777 
000011 
000013 


G 1 
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001260 


001260 


000010 
001240 


001276 


001122 


001166 
001166 


001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


2$: 


3$: 
; VERIFY 


66$: 


67$: 


:START THE TIMER 


;CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO TIM. MS 

;WATCH EQUAL TO ZERO 

;BR IF NOT 


;MOVE PORT este TO LOCATION FOR TYPEOUT 
TIMEOUT 


sSELECT F 


;CLEAR THE ELAPSED COUNTER 
:SET WATCH TO 2000. 


;RETRIGGER —a 


WAIT FOR 


:BR IF TIMEOUT OCCURRED 
{WATCH i TO ZERO ? 


;SAVE THE ELAPSED TIME VALUE 


IN NEUTRAL 


;CLEAR THE ‘RELEASE ERROR ° INDICATOR 
: FORM THE ADDRESS OF RMDS FOR TYPEOUT 


D THE I/0 BASE ADDRESS 
:SELECT PORT 


>GET THE ‘RIVE STATUS REGISTER FROM PORT A. 
DONT CARES 


ee CONSTANT 


LEAR 
:COPY IT INTO "$TMPO' 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 


[SELECT PORT 


B. 
>GET THE DRIVE STATUS REGISTER FROM PORT B. 
CARES 


AR DONT 


:CLE 
:COPY IT INTO ‘STMP1° 


;CLEAR PORT DEPENDENT BITS FROM THE COPY 
:IS ag STATUS REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF NOT 
pe ARE THE SAME: ARE THEY ZERO ? 


:BYPASS THE REST OF THE CHECKS 





:SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
:SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


>SELECT 


PORT B. 
;SEE IF STATUS EQ 0 FROM PORT A. 


:BR IF ZERO 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


; "BAD DATA’ cr ERROR TYPE OUT 
>SELECT PORT 


: SEE IF STATUS. EQ ZERO FROM PORT B. 
:SET "RELEASE ERROR‘ -INDICATOR 


sCLEAR THE DRIVE 
sRELEASE THE DRIVE 


CLR IME 

MOV W500. “WATCH 

TST WATCH 

BNE 1$ 

CLR TIME 

MOV #2000. ,WATCH 
=RETRIGGER THE TIMEOUT ONE-SHOT 

TST RMDS (RO) 

MOVB —- PORTB, RMCS2(RO) 

MOV PORTB,PTNBR 

TST RMDS (RO) 

BNE 3$ 

TST WATCH 

BNE 2$ : 

EMT 36 

MOV TIME, TIMES 

THAT THE DRIVE IS STILL 

CLR RELERR 

MOV #RMDS , SBDADR 

ADD RO, $BDADR AD 

MOV #MOL |PGM'DPR!DRY1VV.S$GDDAT 

MOVB — PORTA, RMCS2(RO) 

MOV RMDS (RO) , $TMP2 

BIC #PIP!WRL'OM,$T 

MOV TMP2, $TMPO 

BIC #ATA'VV,$TMPO 

MOVB - PORTB, RMCS2(RO) 

MOV RMDS (RO), 

BIC #PIP!WRL‘'OM,$TMP3 

MOV STMP3,$T 

BIC HATA: VV, STMP1 

CMP $TMPO,$TMP 

BNE 

TST $TMPO 

BNE 68$ ; 

EMT 46 

JMP 70$ 

MOV $TMP2, SBDDAT 

MOV PORTB,PTNBR 

MOVB - PORTB,. RMCS2(RO) 

TST $TMPO 

BEQ 67% 

MOV PORTA, PTNBR 

MOV $TMP3.$BDD 

MOVB _—sC—wPORTA,, RAcS2 (RO) 

TST $TMP1 

BNE 68 

MOV #-1,RELERR 

MOV #11.RMCS1(RO) 

MOV #13.RMCS1(RO) 


mm ees oe 
ee ee 


SEQ 9151 


| | dee abe: DU POR TST 1 
T44 *A' RETRIGGER BY DEMAND TEST 
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SEQ U152 


064410 104022 EMT 22 
060412 013737 001170 601126 68%: MOV STMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
| 060420 013737 001224 001240 MOV PORTA.PTNBR ; CHANGE PORT NUMBER 
| 060426 023737 001124 001126 CMP S$GDDAT.$BDDAT ALL BITS Ok 
| 060434 901401 BEQ 69$ “BR IF OK PROM PORT A. 
| 060436 104007 EMT 7 
| 060440 013737 001172 001126 69%: MOV $TMP3,$BDDAT  ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
| 060446 013737 001226 001240 MOV PORTB.PTNBR “CHANGE PORT NUMBER 
| 060454 023737 001124 001126 CMP $GDDAT,$BDDAT :SEE IF READ OK FROM PORT B. 
| 060462 001401 BEQ 703 “BR IF OK 
| 060464 104007 EMT 
| 060466 000240 70$: NOP 
| =CHECK THE TIME FROM RETRIGGER TO TIMEOUT 
060470 023737 001276 001264 CMP TIMES,TIMEAP | ;MEASURED TIME GREATER THAN +25% TOLERANCE ? 
0476 003004 BGT 4$ “BR IF GREATER 
060500 023737 001276 001266 CMP TIMES. TIMEAM | :MEASURED TIME LESS THAN -25% TOLERANCE 
0506 002001 BGE +4 “BR IF NOT 
060510 4$: 
060510 164025 EMT 25 
060512 000004 SCOPE :LOOP ? 
1454 
1470 
1471 POSE TTT TATE TALLICACLITSCEACTTALLILICLLA CeCe ce cee eee ec cece ec ee ee 
: HTEST 45 PORT 'B' RETRIGGER BY DEMAND TEST 
. eVERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
** 
‘* A. SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING 0'S INTO RMDS. 
-% 
:* B. WAIT 500 MS AND WRITE 0°B INTO RMDS THROUGH PORT ‘A’. 
-* 
** (C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED 
:* TIME. (THE MEASUREMENT IS MADE FROM STEP 'B’. 
- 
** D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
:* BIT IS SET. 
-* 
- 2 RRO AELASAEEALZEEEAAESEEAEZALEALAALEBSEELEALASASARASASASRAAALARARLARASA S&S ® 3 
060514 1ST45: 
060514 005737 001300 TST KYBCTL ;PERFORMING ONLY SINGLE TEST ? 
060520 001406 BEQ 2$ IF NOT 
060522 100002 BPL 1$ "BR IF JUST ENTERED TEST 
060524 000137 003074 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
060530 012737 177777 001300 1$: MOV #-1,KYBCTL “SET SINGLE TEST INDICATOR 
060536 012737 060552 001106 2$: MOV ATESTOS, SLPADR “SETUP SCOPE LOOP ADDRESS 
060544 012737 060552 001110 ‘icin MOV ATEST45.$LPERR :SETUP ERROR LOOP ADDRESS 
060552 112737 000045 001102 """ movB «#45, $TSTNM :MOVE #45 TO TEST NUMBER 
$60 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
ae 060564 012737 000002 001176 MOV #2..$TIMES *:DO 2. ITERATIONS 
1473 
CLEAR ATTENTION BITS FOR BOTH PORTS 
060572 113760 001224 000010 MOVB — PORTA. RMCS2(RO) :SELECT PORT #A 


| 


| 


’ 
' 


' 
; 
i 


: 


060714 
060720 


060776 
06 


005060 
012760 
012760 


113760 
013737 


005060 
013737 
005037 
012737 


005737 
001375 


005037 
0127357 


005760 


| * oe RMO5/3/2 DU POR TST 1 
145 PORT 'B' RETRIGGER BY DEMAND TEST 


001224 


001256 
000764 
001260 


001256 


003720 


000012 


001260 


001256 


001164 


I 1 
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000000 
000000 
000010 


000000 
000000 


000019 
001242 


001244 


001260 


001260 


000010 
001240 


001276 


001122 
001124 
10 


001166 





;SEIZE THE DRIVE 
; ISSUE DRIVE CLEAR 
; RELEASE Ha. 3 DRIVE 


‘SELECT PORT #B 

sSEIZE THE DRIVE eet PORT 
s ISSUE DRIVE CLEAR 

sRELEASE THE DRIVE 


'R’ 


;SELECT PORT 8B 


ORE SEIZING PORT'S ADDRESS 


WRITE RMDS 
; ‘OPPOSITE’ PORT ADDRESS 


;CLEAR THE ELAPSED TIME eaintahii 
;SET WATCH TO TIM. MS 

:WATCH EQUAL TO ZERO 

:BR IF NOT 


;CLEAR THE ELAPSED fy COUNTER 
7SET. WATCH TO 2000. 


sRETRIGGER THE * uated 

;SELECT PORT 

E PORT ADDRESS TO LOCATION FOR TYPEOUT 
WAIT FOR TIMEOUT 


“BR IF TIMEOUT OCCURRED 


;WATCH EQUAL TO ZERO ? 
BR IF NOT 


:SAVE THE ELAPSED TIME VALUE 
IN NEUTRAL 
;CLEAR THE ‘RELEASE ERROR * INDICATOR 


;FORM THE ADDRESS OF RMDS FOR TYPEOQUT 
D THE I/0 BASE ADDRESS 
—-9 CONSTANT 
:SELECT PORT 


:GET THE DRIVE “STATUS REGISTER FROM PORT A. 
AR DONT CARES 


s€t 
;COPY IT INTO "$TMPO 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 
>SELECT PORT B. 
*GET THE DRIVE STATUS REGISTER FROM PORT B. 
DONT CARES 


; CLEAR 
:COPY IT INTO '$TMP1' 
=CLEAR PORT DEPENDENT BITS FROM THE COPY 
2a2 Ny lle REGISTER THE SAME FROM BOTH PORTS ? 


CLR RMDS (RO) 
MOV #11,RMCS1(RO) 
MOV #13, “RMCS1(RO) 
MOVB PORTB, RMCS2 (RO) 
CLR RMDS (RO) 
MOV #11,RMCS1 (RO) 
MOV #13,RMCS1(RO) 
:SEIZE THE DRIVE THROUGH PORT B 
MOVB PORTB,RMCS2 (RO) 
MOV PORTB,SEIZPT ;ST 
CLR RMDS (RO) : 
MOV PORTA,OPPRT 
:START THE TIMER 
CLR TIME 
MOV #500. ,WATCH 
1$: TST WATCH 
BNE : 
:START THE TIMER 
CLR TIME 
MOV #2000. ,WATCH 
:RETRIGGER THE TIMEOUT ONE~SHOT 
TST RMDS (RO) 
MOVB PORTA, RMCS2(RO) 
MOV PORTA,PTNBR :; 
2$: TST RMDS (RO) 
BNE 3$ 
TST WATCH 
BNE 2$ ; 
EMT 36 
3$: MOV TIME, TIMES 
; VERIFY THAT THE DRIVE IS STILL 
CLR RELERR 
MOV ARMDS , SBDADR 
ADD RO, SBDA DR “AD 
MOV #MOL 'PGM'DPR!DRY! VV, SGDDAT 
MOVB PORTA, RMCS2(RO) 
MOV RMDS ( RO), STMP2 
BIC #PIP!WRL'OM,$TMP 
MOV $TMP2,STMPO 
BIC HATA! VV,STMPO. 
MOVB PORTB, VRMCS2 (RO) 
MOV RMDS (RO), STMP3 
BIC #PIP! WRL'OM,$TMP 
MOV $TMP3,STMP1 
BIC HATA!VV, STMP1 
CMP STMPO, $TMP1 
BNE 66$ : 


me me ee ee 8 am ee 


SEQ 0155 


1474 
1495 


1496 





NONI) @ @ @ SB meee 


———————— 


0237357 
003004 
023737 
002001 


104025 
000004 


* hes we tas DU POR TST 1 
, "B' RETRIGGER BY DEMAND TES 


001164 


061316 
001170 


001166 


177777 
000011 
000013 


001170 


001224 
001124 


001172 
001226 
001124 


001276 
001276 
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001126 
001240 
000010 


001240 
001126 
000010 


001254 
000000 
000000 


001126 


001240 
001126 


001126 
001240 
001126 


001272 
001274 


66$: 


69$: 


70$: 


:CHECK THE TIME 


4$: 


a oo 
2a *@eSe MBH HR HR MH FS 


TST 


$TMPO ;REGISTERS ARE THE SAME: ARE THEY ZERO ? 
re ;BR IF NOT 
70$ ;BYPASS THE REST OF THE CHECKS 
$TMP2 , $BDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
PORTB,PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
PORTB,RMCS2(RO) ;SELECT PORT B. 
$TMPO :SEE IF STATUS EQ 0 FROM PORT A. 
:BR IF ZERO 


67$ 
PORTA, th ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


$TMP DDAT ; "BAD DATA’ = ERROR TYPE OUT 
PORTA,RMCS2(RO) ;SELECT PORT 

$TMP1 7SEE IF STATUS. EQ ZERO FROM PORT 8. 
68$ :BR_IF NOT 

#-1 ,RELERR ;SET ‘RELEASE ERROR’ INDICATOR 
#11,RMCS1(RO) CLEAR THE DRIVE 

—— “RELEASE THE DRIVE 

$TMP2 , SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
PORTA,PTNBR ; CHANGE PORT NUMBER 

$GDDAT,$BDDAT ALL BITS Ok ? 

:BR IF OK FROM PORT A. 

$TMP3 , SBDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB,PTNBR > CHANGE T NUMBER 

$GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 

ag 7BR IF OK 


FROM RETRIGGER TO TIMEOUT 


Heke tance Oh iP GREATER GREATER THAN +25% TOLERANCE ? 
TIMES, TIMEBM {MEASURED T IME LESS THAN -25% TOLERANCE 
a” e 
25 
;LOOP ? 
DECISIS IOISISOISIOIIOITISISIIII IO OIOOOIIIOISOIIIIOOIIOO III OI RIOR s 
PORT "A‘ TIMEOUT/RELEASE TEST 


: TEST 46 


:*VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


SEIZE THE DRIVE THROUGH PORT 'B’ BY WRITING O°S INTO RMDS. 
SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT ‘A'. 


ae ode 3 


Oo 


ISSUE A RELEASE COMMAND FROM PORT ‘B'. 


VERIFY THAT THE DRIVE 


HAS SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA' BIT DID NOT 


SET FOR PORT ‘B’. 
WAIT THE TIMEOUT INTERVAL + 25%. 


REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘A’. 
VERIFY THAT THE DRIVE HAS 


BEEN RELEASED. 


ee ees oe se se —— 


SEQ 0154 


caiieiee 


1497 
1541 





° 061574 


061600 


005737 
06 


012737 
112737 


012706 
012737 


113760 
0 


012760 


113760 
013737 
005060 
013737 


115760 
013737 


005060 
113760 
013737 
012760 


013737 


005037 
016037 


om we ah A DU POR TST 1 


001300 


003074 
177777 


001226 
001226 
000012 
001224 
001224 
001224 


000012 
001226 
001226 


000013 
001264 


001250 
000012 


SS 
ee eee ams qs «see 


SE ne ee 
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001300 


,001106 
001110 


001102 
001176 


000010 
000000 
000000 
000010 
000000 
000000 


000010 
001242 


000010 
001240 


000000 


001260 


001126 


SEQ 0155 


** 
“* £. RELEASE THE DRIVE THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
te RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
* 
*: : TOR RRAEAEARAEBRAAEAELABRAEEAEEAEARBRERAERRAREARRERERRERARRERERERE ERA R RSE SSSR SASS 
TST46: 

TST KYBCTL sPERFORMING ONLY SINGLE TEST ? 

BEQ 2$ “BR IF NOT 

BPL 1$ BR IF JUST ENTERED TEST 

JMP EXEC | “RETURN & GET NEXT TEST NUMBER 
1$: MOV #-1,KYBCTL “SET SINGLE TEST INDICATOR 
2$: MOV HTEST46,$LPADR :SETUP SCOPE LOOP ADDRESS 
Se MOV #TEST46,$LPERR ;SETUP ERROR LOOP ADDRESS 

" MOVB  #46,$TSTNM :MOVE #46 TO TEST NUMBER 
MOV #STACK, SP * LOAD THE STACK P INTER 
MOV #2.,$TIMES *:D0 2. ITERATI 


:CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 

CLR RMDS (RO) :SEIZE THE DRIVE 

MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCSi(RO)  :RELEASE THE DRIVE 

MOVB PORTB,RMCS2(RO) ;SELECT PORT #B 

CLR RMDS (RO) ;SEIZE THE DRIVE THROUGH PORT ‘B* 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13,RMCS1(RO) RELEASE THE DRIVE 


;SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,SEIZPT ;STORE SEIZING PORT’S ADDRESS 

CLR RMDS (RO) ;WRITE RMD 

MOV PORTA,OPPR ; OPPOSITE’ “po ADDRESS 

MOVB PORTA, “RMCS2(RO) ;SELECT PORT 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


:SET REQUEST THROUGH PORT A 


CLR RMDS (RO) ;SET REQUEST FOR PORT A 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;RELEASE THE DRIVE THROUGH PORT B 


MOV #13,RMCS1(RO) ;RELEASE DRIVE THROUGH PORT B 


;WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 


MOV TIMEAP ,WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE + 25% 


;VERIFY THAT THE DRIVE IS SEIZED BY PORT A 


EAR THE ‘CHECK ERROR" INDICATOR 


CLR CKERR 7h 
:GET CONTENTS OF RMDS 


MOV RMDS (RO) , SBDDAT 


ee 


———— A eS ee —_ ‘ 
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"A* TIMEOUT/RELEASE TEST SEQ 0156 


Ee ee 


1606 012737 000012 001122 MOY ARMDS SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
061614 060037 001122 ADD —-RO, SBDA ADD RH/RM BASE ADDRESS 
061620 005037 001124 CTR ss SGBDAT WHAT REGISTER. SHOULD BE 
061624 023737 001124 001126 (MP -$GDDAT,$BDDAT 31S THE REGISTER OK 
061632 001403 BEQ © 66$ :BR IF OK 
1634 104031 EMT =—_-31 
061636 005137 001250 COM —«CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
061642 000240 66$: NOP 
061644 005737 001250 TST —CKERR ;REGISTER OK ? 
061650 001402 BEQ +4 "BR IF OK 
061652 000137 062226 MP tCS “BYPASS REST OF TEST IF NOT 
;WAIT FOR THE TIMER TO RELEASE THE DRIVE 
061656 005737 001260 TST ATCH WATCH EQUAL ZERO ? 
061662 001375 = ‘BR IF NOT 
CONFIRM THAT THE DRIVE HAS TIMED OUT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
1 005037 001254 CLR —-RELERR :CLEAR THE ‘RELEASE ERROR ' INDICATOR 
061670 012737 000012 001122 MOV §- ARMDS,$BDADR =: FORM THE ADDRESS OF RMDS FOR TYPEOUT 
061676 060037 001122 ADD —-RO, SBDADR “AD THE 1/0 BASE ADDRESS 
061702 012737 011700 001124 MOV §- #MOL ! PGM' DPR! DRY! VYASGDDAT COMPARISON CONSTANT 
061710 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
061716 016037 000012 001170 MOV §- RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A 
061724 042737 024001 0011 BIC | #PIP!WRL'OM,$T CLEAR DONT CARES 
061732 013737 001170 001164 MOV § $STMP2,$TMPO| —s_ ; COPY _IT INTO ‘$TMPO 
061740 042737 100100 001164 BIC MATA!VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
061746 113760 001226 10 MOVB § PORTB,RMCS2(RO) :SELECT PORT 
061754 016037 000012 001172 MOV -—«s«RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
061762 042737 024001 001172 BIC  #PIP! WRL'OM,STMP :CLEAR DONT CARES 
061770 013737 001172 001166 MOV § $TMP3, STMP1 :COPY IT INTO ‘STMP1' 
061776 042737 100100 001166 BIC #ATA!VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 
062004 023737 001164 001166 CMP  —s«- $TMPO,, STMP1 “IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
062012 001 BNE  68$ BR IF NOT 
062014 005737 007164 TST  $TMPO REGISTERS ARE THE SAME: ARE THEY ZERO ? 
062020 001045 BNE  70$ :BR IF NOT 
062022 104046 EMT 46 
062024 000137 062224 IMP 728 ;BYPASS THE REST OF THE CHECKS 
062030 013737 001170 001126 68%: MOV § $TMP2,$BDDAT ;SET_UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
2036 013737 001226 001240 MOV -—«s- PORTB.PTNBR _——«s: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
062044 113760 001226 000010 MOVB § PORTB.RMCS2(RO) :SELECT PORT B. 
062052 005737 001164 TST  $TMPO SEE IF STATUS EQ 0 FROM PORT A. 
062056 001414 BEQ ©=s«6 9S F ZERO 
062060 013737 001224 001240 MOV -—«~PORTA,PTNBR —Ss: SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
062066 013737 001172 001126 MOV § $TMP3.$BDDAT _—: ‘BAD DATA’ FOR ERROR TYPE OUT 
062074 113760 001224 000010 MOVB § PORTA.RMCS2(RO) :SELECT PORT 
062102 005737 001166 TST — $TMP1 ‘SEE IF STATUS EQ ZERO FROM PORT 8. 
21 1012 BNE 70S :BR IF NOT 
062110 012737 177777 001254 69$: MOV  #=1,RELERR SET 'RELEASE ERROR’ INDICATOR 
062116 012760 000011 000000 MOV §- #11.RMCS1(RO) CLEAR THE DRIVE 
062124 012760 000013 000000 MoV §-«#13.RMCS1(RO) RELEASE THE DRIVE 
062132 104035 EMT = 35 
062134 013737 001170 001126 70$: MOV § $TMP2,$BDDAT |; LOOK FOR BIT FAILURES WHEN RMDS READ 
062142 013737 001224 001240 MOV -—s-~PORTA.PTNBR =—Ss: CHANGE PORT NUMBER 





ee ee ee ee ee 


| 


| 


1562 
1563 


005737 


012737 
112737 


012706 
012737 


113760 


005060 
012760 
012760 


| | ee, we eee DU POR TST 1 


100000 
001124 


001124 
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001126 
001126 


001126 


001126 


001300 
001106 
001110 
001102 
001176 


000010 
000000 
000000 
000010 


000000 
000000 


71$: 


72$: 
1$: 


SEQ 0157 
#ATA, $BDDAT ;DON'T CHECK THE ATIN BIT 
$GDDAT,$BDDAT ALL BITS OK 
71$ :BR IF OK PROM PORT A. 


7 
$TMP3 ,$BDDAT ; CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
PORTB,PTNBR ; CHANGE PORT NUMBER 

:DON'T CHECK THE ATTN BIT 
$GDDAT,$BDDAT SEE IF READ OK FROM PORT B. 
72$ :BR IF OK 


;LOOP ? 


SL RARER EREEREKREREKEKERKEREEEAKEAEKEKERERERRRAREE HE 


sSteat 47 


:*VERIFY THAT THE TIMEOUT ONE=SHOT IS TRIGGERED WHEN THE DRIVE 
SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


SEIZE THE DRIVE THROUGH PORT ‘A* BY WRITING 0°S INTO RMDS. 
SET PORT REQUEST BY WRITING 0°S INTO RMDS FROM PORT °B’. 


~ WD > 


oO 
° 


W*> *e eee ee RH HE 


meg tc ee anal I de ae ab ak ee 


147: 


1$: 
2$: 


TEST47: 


ya A RELEASE COMMAND FROM PORT ‘A’. 


PORT 'B' TIMEOUT/RELEASE TEST 


VERIFY THAT THE DRIVE 


SWITCHED TO THE OTHER PORT AND THAT THE ‘ATA’ BIT DID pa 


SET FOR PORT ‘A’. 
WAIT THE TIMEOUT INTERVAL + 25%. 


REGISTERS WILL NOT BE CHECKED THROUGH PORT ‘B’. 
VERIFY THAT THE DRIVE HAS 


BEEN RELEASED. 


SEK AAEKEKKEKKKKEAAEEEEEKREREREKEKEEKEKEKEKEEKKKEKEKKEKEEEEKKKEEKEKKKKKEKK 


* ae ane ONLY SINGLE TEST ? 


:BR IF NO 
1$ -BR IF JUST ENTERED TEST 
EXEC ;RETURN & GET NEXT TEST NUMBER 
#-1 ,KYBCTL 


:SET SINGLE TEST INDICATOR 
#TEST47,$LPADR ;SETUP SCOPE LOOP AD 


DRESS 
HTEST47.$LPERR :SETUP ERROR LOOP ADDRESS 


447 ,STSTNM sMOVE #47 TC TEST NUMBER 
ASTACK,SP ;LOAD THE STACK POINTER 
#2. .STIMES 3:DO 2. ITERATIONS 


;CLEAR ATTENTION BITS FOR BOTH PORTS 


;SELECT PORT #A 

sSEIZE THE DRIVE 

: ISSUE DRIVE CLEAR 

;RELEASE THE DRIVE 

:SELECT PORT #8 

:SEIZE THE DRIVE = PORT ‘B" 
: ISSUE DRIVE CLEAR 

:RELEASE THE DRIVE 


PORTA, RMCS2(RO) 

RMDS (RO) 

#11,RMCS1 (RO) 

#13,RMCS1 (RO) 

PORTB,RNCS2(RO) 
(RO) 


RMD 
#11,RMCS1 (RO) 
#13.RMCS1 (RO) 


me ee es 


! 
' 
' 
| 
' 


| 
| 


-- 


CZ 
14 


om = ae hk D 


062542 
062546 


113760 
abe 


013737 


005060 
113760 
013737 
012760 


013737 


005737 
001375 


U POR TST 1 
TIMEOUT/RELEASE TEST 


000013 


001272 


001250 
001250 
063112 


001260 


—_——————— eee 
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000010 
001242 


001240 


000010 
001249 


000000 * 


001260 


001126 
001122 


001126 


001122 
001124 


001164 
001164 


zWAIT FOR THE ae TO RELEASE THE DRIVE 
TST WATCH WATCH i ZERO ? 


BNE 


4 


RELERR 

#RMDS , —" 

RO, $BDA > AD 

WMOL {POM DPR !DRYI WV, SGDDAT 


:SEIZE THE DRIVE THROUGH PORT A 


;SELECT PORT A 


ss URITE as PORT*S ADDRESS 


ITE RM 
; OPPOSITE‘ “- ADDRESS 


; SELECT 


;SET REQUEST ‘i. PORT B 
; SELECT PORT 
;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORT B 
:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


;RELEASE DRIVE THROUGH PORT A 


SET WATCH TO MEASURED TIMEOUT VALUE + 25% 


zSET THE REGISTER COMPARE ERROR INDICATOR 


;CLEAR THE ‘CHECK ERROR’ INDICATOR 
3;GET CONTENTS OF RMDS 
:FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 


sWHAT REGISTER SHOULD BE 


sREGISTER OK ? 
;BR IF OK 
:BYPASS REST OF TEST IF NOT 


;CONFIRM THAT THE DRIVE HAS TIMED OUT 
;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


:CLEAR THe "RELEASE ERROR * INDICATOR 
:FORM THE ADDRESS OF RMDS FOR TYPEOUT 


PORTA,RMCS2(RO) 


RMDS (RO) , STMP2 


HATA!VV, $TMPO 


MOVB PORTA, RMCS2(RO) 
| MOV PORTA, SEIZPT 
| CLR RMDS (RO) 
| MOV PORTB,OFPRT 
| MOVB PORTB,RMCS2(RO) 
MOV PORTB,PTNBR 
ser REQUEST THROUGH PORT B 
CLR RMDS (RO) 
MOVB PORTA,RMCS2(RO) 
MOV PORTA, PTNBR 
“RELEASE THE DRIVE THROUGH PORT A 
MOV #13,RMCS1(RO) 
:WAIT THE MEASURED TIMEOUT FOR THE PORT (+ 25%) 
MOV TIMEBP ,WATCH 
:VERIFY THAT THE DRIVE IS SEIZED BY PORT B 
CLR CKERR 
MOV RMDS (RO), SBDDAT 
MOV #RMDS , $BDADR 
ADD RO, $BDADR 
CLR $GDDAT 
CMP $SGDDAT , SBDDAT 
BEQ 66$ ; 
EMT 31 
COM CKERR 
66$: NOP 
TST CKERR 
BEQ +6 
JMP i$ 


:IS THE REGISTER OK ? 
;BR IF OK 


D THE I/O BASE ADDRESS 
a CONSTANT 


:SELECT PORT A 
=GET THE DRIVE STATUS REGISTER FROM PORT A. 
;CLEAR DONT CARES 


:COPY IT INTO 
:CLEAR PORT DEPENDENT BITS FROM THE COPY 


ce ee a ee ee 


SEQ 0158 


— —— ee ee ee 


| CZRMRBO RMOS/ 3/2 DU POR TST 1 
14? B’ TIMEOQUT/RELEASE TEST 


177777 
000011 
000013 


001170 
001224 
00000 


: 
001124 
001172 
001226 
100000 
001124 





——— —— eee 


She tS — 
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68$: 


MOVB PORTB,RMCS2(RO) ;SELECT PORT 6. 

MOV RMDS(RO), <GET THE DRIVE STATUS REGISTER FROM PORT B. 

BIC #PIP!WRL!OM, ;CLEAR DONT CARES 

MOV STMP3,STMP1 ;COPY IT INTO ‘$TMP1' 

BIC HATA'VV,$TMP1 CLEAR PORT DEPENDENT BITS FROM THE COPY 

Se ial :1S ae ee REGISTER THE SAME FROM BOTH PORTS ? 
TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BNE 70$ ;BR IF NOT 

EMT 46 

JMP ;BYPASS THE REST OF THE CHECKS 


72$ 
STMP2 , SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


MOV  PORTB,PTNBR —s ; SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
MO PORTB.RMCS2(RO) ;SELECT PORT B. 
TST —- STMPO SEE IF STATUS EQ 9 FROM PORT A 
BEQ «= 69S :BR IF ZERO 
MOV - PORTA.PINBR ==; SEIZING PORT’ TEST SHOWS DRIVE NOT IN NEUTRAL 
MOV § STMP3,SBDDAT —; ‘BAD DATA’ FOR ERROR TYPE 
MO PORTA-RMCS2(RO) :SELECT PORT A 
TST = $TMP 1 SEE IF STATUS EQ ZERO FROM PORT 8. 
BNE :BR_IF_NOT 

69$: MOV  #=1,RELERR :SET "RELEASE ERROR’ INDICATOR 
MOV #11,RMCSI(RO) CLEAR THE DRIVE 
Moy #13. SRMCS1(RO) RELEASE THE DRIVE 

70$: MOV § $TMP2,$BDDAT  ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV - PORTA,PTNBR =; CHANGE PORT NUMBER 
BIC  —- #ATA,SBDDAT ==: DON'T _ CHECK THE ATTN BIT 
CMP  - $GDDAT,SBDDAT =: ALL BITS Ok ? 
BEO :BR IF OK FROM PORT A. 

71$: MOV § $TMP3,$BDDAT =; CHECK _RMDS FOR BIT FAILURES - FROM PORT B. 
MOV PORTB.PTNBR =; CHANGE _PORT NUMBER 
BIC  #ATA,SBDDAT _—s_: DON’ T_CHECK THE ATTN BIT 
CMP DAT,S$BDDAT :SEE IF READ OK FROM PORT B. 
BEQ = 72$ :BR IF OK 
i ee 

72$: NOP 

1$: SCOPE :LOOP ? 

SAAR EAAEAERERAEERAEARERAARARAEARAREAAERRARAREREERRE REESE 

; TEST 50 PORT ‘A’ SEIZE ACCESS TEST 

:*VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

* 

i* A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

“* 

:* B. WRITE 1'S INTO RMER1, RMER2 THROUGH PORT ‘A’. 

** 

:* C. READ RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT PORT 

:* 'B’ SEES O'S FROM EACH OF THESE REGISTERS. 

** 

:* D. CLEAR RMER1, RMER2 THROUGH PORT ‘A’. 

“* 

:* E, WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT 

“* 


oe a 


PORT 'A’ SEES 0'S FROM EACH OF THESE REGISTERS. 


SEQ 0159 


C 
C7RMRBO RMO5S/3/2 DU POR TS7T 1 MACRO V04.00 4-APR=81 18:06:25 PAGE 16-120 
T50 PORT "A* SEIZE ACCESS TEST SEQ 0160 


F, RELEASE THE DRIVE THROUGH PORT ‘A’, VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT ‘B* AND THAT THE ATTENTION BIT FOR PORT °B’ IS 
SET AND THE ATTENTION BIT FOR PORT ‘A’ IS NOT SET. 


** 

*® 

*® 

*® 

*® 

*® G. ISSUE A RELEASE COMMAND THROUGH PORT 'B’. VERIFY THAT THE DRIVE 
Z RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

§ 


MABBREBBRABSBAASASAAASLSASAAASARAARSRRRARARARARRA SAAR RARRAAAR ELAR SAAS SE S| 


te 


i 


063114 T50: 
063114 005737 001300 TST KYBCTL ; PERFORMING ONLY SINGLE TEST ? 
063120 001406 BEQ 2$ F NOT 
063122 100002 BPL 1$ "BR IF JUST ENTERED TEST 
063124 000137 003074 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
063130 012737 177777 001300 1S: MOV #-1, KYBCTL “SET SINGLE TEST INDICATOR 
063136 012737 063152 001106 2$: MOV WTESTSO, $LPADR :SETUP SCOPE LOOP ADDRESS 
063144 012737 063152 001110 meee MOV #TESTSO.$LPERR :SETUP ERROR LOOP ADDRESS 
063152 112737 000050 001102 MOVB  #50.$TSTNM ;MOVE #50 TO TEST NUMBER 
663160 012706 001100 MOV #STACK, SP LOAD THE STACK POINTER 

saa 063164 012737 000012 001176 MOV #10. ,$TIMES 5 DO 10. ITERATIONS 

1630 

:CLEAR ATTENTION BITS FOR BOTH PORTS 
063172 113760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT #A 
063200 005060 000012 CLR RMDS (RO) “SEIZE THE DRIVE 
063204 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
063212 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
063220 113760 001226 000010 MOVB = PORTB, RMCS2(RO) ;SELECT PORT #8 
063226 005060 000012 CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT ‘B’ 
063232 012760 000011 000000 MOV #11,RMCS1(RO) ISSUE DRIVE CLEAR 
063240 012760 000013 000000 MOV #13.RMCS1(RO) :RELEASE THE DRIVE 
:SEIZE THE DRIVE THROUGH PORT A 

063246 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
063254 013737 001224 001242 MOV PORTA.SEIZPT :STORE SEIZING PORT'S ADDRESS 
063262 005060 000012 CLR RMDS (RO) ;WRITE RMDS 
063266 013737 001226 001244 MOV PORTB, OPPRT :"OPPOSITE’ PORT ADDRESS 
063274 012760 177777 000014 MOV #-1,RMER1(RO)  :LOAD 1°S INTO RMER1 THROUGH PORT A 
063302 012760 177777 000042 MOV #-1_RMER2(RO)  :LOAD 1°S INTO RMER2 THROUGH PORT A 
063310 113760 001226 000010 MOVB  PORTB.RMCS2(RO) ;:SELECT PORT B 
063316 013737 001226 001240 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
063324 004737 064164 JSR PC, TST50B = CHECK THE REGISTERS THROUGH PORT B 
063330 113760 001224 000010 MOVB  PORTA,RMCS2(RO) :SELECT PORT A 
063336 013737 001224 001240 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
063344 005060 000042 CLR RMER2 (RO) =CLEAR RMER2 ON PORT A 
063350 005060 000014 CLR RMER1 (RO) “CLEAR RMER1 ON PORT A 
063354 013760 001236 000016 MOV ASR1, gRMAS (RO) “CLEAR THE ATTENTION BIT FOR PORT A 
063362 113760 001226 000010 MOVB PORTB.RMCS2(RO) ;SELECT PORT B 
063370 013737 001226 0601240 MOV DORTE PTNBR *MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT 
063376 012760 177777 000014 MOV #-1,RMER1(RO) :LOAD 1'°S INTO RMER1 THROUGH PORT B 
063404 012760 177777 000042 MOV #~1-RMER2(RO)  :LOAD 1'S INTO, RMER2 THROUGH PORT B 
063412 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
063420 013737 001224 001240 MOV PORTA.PTNBR ;:MOVE PORT A ADDRESS TO LOCATION FOR TYPEQUT 
063426 004737 064164 JSR PC, TST50B =CHECK THE REGISTERS THROUGH PORT 
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113760 
013737 
012760 


113760 
013737 
012760 


001226 
000013 


001164 





;RELEASE T4E DRIVE FROM PORT A 


000010 MOVB  PORTA,RMCS2(RO) SELECT PORT A 
001240 MOV PORTA.PTNBR VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT A 
=VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 
CLR RELERR :CLEAR "RELEASE ERROR’ INDICATOR 
001124 MOV #HATA'MOL. 'PGM! DPR'DRY! VV, $GDDAT ; COMPAR SON CONSTANT 
007122 MOV #RMDS,$BDADR ;:REGISTER ADDRESS INCREMENT 
ADD RO, $8DADR sREGISTER BASE ADDRESS FOR TYPEOUT 
000010 MOVB _—swPORTB, RMCS2(RO) /fSEGECT PORT B 
001240 MOV PORTB,PTNBR PORT ADDRESS TO LOCATION FOR TYPEOUT 
001164 MOV RMDS (RO), A ee YREAD STATUS REGISTER FROM PORT B 
000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT A 
001240 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001126 MOV RMDS(RO),$BDDAT ;DRIVE STATUS FROM PORT 
BEQ 66$ :BR IF STATUS FROM PORT a ZERO 
TST $TMPO -1S STATUS FROM PORT B ZERO ? 
BEO 66S -BR IF ZERO 
001126 66$: MOV STMPO. SBDDAT :CHECK STATUS FROM PORT B 
001240 MOV PORTB,PTNBR “CHANGE PORT ADDRESS FOR TYPEOUT 
001126 CMP SGDDAT,$BDDAT :COMPARE WITH CONSTANT 
BEQ 67$ “BR IF OK 
EMT 27 
673: NOP 
:RELEASE THE DRIVE FROM PORT B 
MOVB  PORTB.RMCS2(RO) ;:SELECT PORT B 


000010 

001240 MOV PORTB,PTNBR ;:MOVE PORT 

000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH POR 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR RELERR : CLEAR THE "RELEASE ERROR ' INDICATOR 
001122 MOV #RMDS , SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, SBDADR *ADD THE 1/0 BASE ADDRESS 
001124 MOV #MOL 'PGM! DPR! DRY! VV, $GDDAT 3 COMPARISON CONSTANT 
000010 MOVB —— PORTA, RMCS2(RO) SELECT PORT 
001170 MOV RMDS (RO) , STMP T THE DRIVE “STATUS REGISTER FROM PORT A. 
001170 BIC #PIP!WRL'OM,$TMP2 :CLEAR DONT CARES 
001164 MOV STMP2, STMPO =COPY IT INTO 'STMPO' 
001164 BIC HATA'VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
000010 MOVB  PORTB,RMCS2(RO) :SELECT PORT B. 
001172 MOV RMDS(RO).$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
001172 BIC #PIP'WRL'OM,$TMP :CLEAR DONT CARES 
001166 MOV STMP3,$T >COPY IT INTO ‘$TMP 
001166 BIC HATA'VV,$TMP1  :CLEAR PORT DE PENDEN T BITS FROM THE COPY 
001166 CMP STMPO, SMP! :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BNE 708 “BR IF NOT 


ADDRESS TO argh dn hy TYPEOUT 


er + een ne ee ee mee 7 
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| C28 
| T50 PORT ‘A* SEIZE ACCESS TEST SEQ O16: 
063770 000137 064154 JMP 72$ ;BYPASS THE REST OF THE CHECKS 
063774 013737 001170 001126 688: MOV STMP2 , SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
002 013737 001226 001240 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
064016 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
064022 001414 BEQ $ “BR IF ZERO 
064024 013737 001224 001240 MOV PORTA,PTNB sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
0640352 013737 001172 001126 MOV STMP3,$BDDAT ; "BAD DATA’ FOR ERROR TYPE OUT 
064040 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A. 
064046 005737 001166 TST STMP1 ;SEE IF STATUS EQ ZERO FROM PORT B. 
064052 001012 | BNE 70$ BR IF 
; 064054 012737 177777 001254 69$§: MOV #-1,RELERR ;SET ‘RELEASE ERROR’ INDICATOR 
064062 012760 000011 000000 MOV #11,RMCS1 (RO) “CLEAR THE 
064070 012760 000013 000000 MOV #13, “RMCS1 (RO) “RELEASE THE DRIVE 
064076 104026 EMT 2 
064100 613737 001170 001126 /70$: MOV te al & el + LOOK FOR BIT FAILURES WHEN RMDS READ 
064106 013737 001224 001240 MOV R E PORT NUMBER 
064114 023737 001124 001126 CMP SCDDAT.  SBDDAT sALL BITS OK ? 
064122 001401 BEQ 71$ :BR IF OK FROM PORT A. 
064124 104007 EMT 7 
064126 013737 001172 001126 71$: MOV STMP3 ,SBDDAT + CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
064134 013737 001226 001240 MOV PORTB,PTNBR PORT NUMBER 
064142 023737 001124 001126 CMP SGDDAT , SBDDAT SEE IF READ OK FROM PORT B. 
064150 001401 BEQ 72$ “BR IF OK 
064152 104007 EMT 7 
064154 000240 72$: 
064156 000004 SCOPE ;LOOP ? 
1631 064160 000137 064406 JMP TST51 3GO TO THE NEXT TEST 
sCHECK THE REGISTERS ON THE SELECTED PORT 
064164 TST50B: 
064164 005037 001250 # CLR CKERR ;CLEAR THE ‘CHECK ae INDICATOR 
064170 016037 000014 001126 MOV RMER] (RO) . SBDDAT :GET CONTENTS OF RMER1 
064176 012737 000014 001122 MOV #RMER1, SBDADR FORM REGISTER ADDRESS OF ERROR MESSAGE 
064204 060037 001122 ADD RO, SBDADR "ADD RH/RM BASE ADDRESS 
064210 005037 001124 CLR SGDDA sWHAT REGISTER SHOULD BE 
064214 023737 001124 0017126 CMP SCDDAT .SBDDAT 31S THE REGISTER OK ? 
064222 0014035 BEQ (645 ;BR IF CK 
224 104006 EMT 6 
064226 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
C64232 016037 000000 001126 64$: MOV RMCS1(RO), SBDDAT :GET THE CONTENTS OF RHCS1 
064240 012737 000000 001122 MOV ARMCS1, SBDADR FORM ADDRESS OF REGISTER 
064246 060037 001122 ADD RO,$BDAD ;ADDRESS BASE 
064252 032737 020000 001126 BIT #MCPE SRDDAT 71S "MCPE* SET ? 
064260 001404 BEQ 65$ :BR IF NOT 
064262 104011 EMT 11 
264 012760 040000 000000 MOV HTRE,RMCS1(RO) ;CLEAR "MCPE' 
064272 000240 65$: NOP 
064274 005037 001250 CLR CKE :CLEAR THE "CHECK —. INDICATOR 
300 016037 000042 001126 MOV RMERS (RO), SBDDAT :GET CONTENTS OF 
064306 012737 000042 001122 MOV eg EN SBDA DR :FORM REGISTER ADDRESS oF ERROR MESSAGE 
064314 060037 001122 ADD RO,$BDA :ADD RH/RM BASE ADDRESS 
064320 005037 001124 CLR SGDDAT ;WHAT REGISTER —* 
064324 023737 001124 001126 CMP S$GDDAT,$BDDAT ;IS Te OK ? 


064332 001403 BEQ 66$ :BR 
064334 104006 6 
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CZR 
| TSO PORT *A’ SEIZE ACCESS TEST SEQ 016? 
| 064336 005137 001250 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
| 064342 016037 000000 001126 66$: MOV RMCS1(RO),$BDDAT ;GET THE CONTENTS OF RHCS1 
| 064350 012737 000000 001122 MOV #RMCS1,$BDADR  ;FORM ADDRESS OF REGISTER 
| 064356 060037 001122 ADD RO, SBDADR “ADDRESS BASE 
| 064362 0327387 020000 001126 BIT #MCPE,$BDDAT  :1S 'MCPE' SET ? 
| 064370 0014 BEQ 67$ “BR IF NOT 
064372 104011 EMT 11 
064374 012760 040000 000000 MOV #TRE.RMCS1(RO) CLEAR "MCPE* 
064402 000240 67$: NOP 
064404 000207 RTS PC RETURN 
1ea9 
1658 fF RAERAAAAARETARAAARAAAAAAEARAARARAAAAAAARAAREKAAARAAHRAHRAERTHE 
“*TEST 51 PORT 'B' SEIZE ACCESS TEST 
-* 
“*VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 
** 
** A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING 0°S INTO RMDS. 
-* 
‘* B. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT 'B'. 
-* 
:*® (C. READ RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT PORT 
:* "A" SEES 0°S FROM EACH OF THESE REGISTERS. 
- 
:* D. CLEAR RMER1, RMER2 THROUGH PORT 'B'. 
-* 
:* E£. WRITE 1°S INTO RMER1, RMER2 THROUGH PORT ‘A’. VERIFY THAT 
:* PORT "B' SEES O'S FROM EACH OF THESE REGISTERS. 
- 
:* F. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE HAS 
:* SWITCHED TO PORT ‘A’ AND THAT THE ATTENTION BIT FOR PORT ‘A' IS 
:* SET AND THE ATTENTION BIT FOR PORT 'B’ IS NOT SET. 
** 
:* G, ISSUE A RELEASE COMMAND THROUGH PORT ‘A’. VERIFY THAT THE DRIVE 
:* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET 
-* 
:: * “Reece AEaEEEAERERAAEKEAEKAARAAAAREKEAAARAARAAAAKREARAREZEAEKRARAETR 
064406 TSTS1: 
064406 005737 001300 TST KYBCTL :PERFORMING ONLY SINGLE TEST ? 
064412 001406 BEQ 2$ 7BR IF NOT 
064414 100002 BPL 1$ “BR IF JUST ENTERED TEST 
064416 000137 003074 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
064422 012737 177777 001300 1$: MOV #-1,KYBCTL “SET SINGLE TEST INDICATOR 
064430 012737 064444 001106 2$: MOV #TESTS1,$LPADR :SETUP SCOPE LOOP ADDRESS 
0644.36 012737 064444 001110 ibid MOV #TEST51.$LPERR :SETUP ERROR LOOP ADDRESS 
064444 112737 000051 001102 " MOVB  #51.$TSTNM :MOVE #51 TO TEST NUMBER 
064452 012706 001100 MOV #STACK, SP “LOAD THE STACK POINTER 
aii 064456 012737 000012 001176 MOV #10... $TIMES *:DO 10. ITERATIONS 
1660 
:CLEAR ATTENTION BITS FOR BOTH PORTS 
464 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT #A 
064472 005060 000012 CLR RMDS (RO) “SEIZE THE DRIVE 
064476 012760 000011 000000 MOV #11,RMCS1(RO)  :ISSUE DRIVE CLEAR 
064504 012760 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
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ACCESS TEST 


000070 


000000 
000000 


000010 
001242 


001244 


000010 
001240 


000016 


8s 
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: VERIFY 


66$: 


67$: 


SEQ 0164 


MOVB PORTB,RMCS2(RO) ;SELECT PORT 4B 

CLR RMDS (RO) ;SEIZE THE DRIVE accra PORT ‘B’ 
MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 

MOV #13.RMCS1(RO) RELEASE THE DRIVE 


:SEIZE THE DRIVE THROUGH PORT B 


MOVB PORTB,RMCS2(RO) ;SELECT PORT B 

MOV PORTB,SEIZPT ;STORE SEIZING PORT'S ADDRESS 

CLR RMDS (RO) ;WRITE RMDS 

MOV PORTA,OPPRT : OPPOSITE PORT ADDRESS 

MOV #~-1 -RMER (RO) :LOAD 1°S INTO RMER1 THROUGH PORT B 
MOV #-1,RMER2(RO) LOAD 1'S INTO —— THROUGH PORT B 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 


MOV PORTA, PTNBR sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


JSR PC,TST51B ; CHECK THE REGISTERS THROUGH PORT 

MOVB PORTB, RMCS2 (RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CLR RMER2 (RO) ;CLEAR RMER2 ON PORT B 

CLR RMER1 (RO) ;CLEAR RMER1 ON PORT B 

MOV ASR1,RMAS(RO)  ;CLEAR THE alae BIT FOR PORT B 
MOVB PORTA,RMCS2(RO) ;SELECT PORT 

MOV PORTA,PT sMOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #-1,RMER1(RO) ;LOAD 1°S INTO RMER1 THROUGH PORT A 
MOV #-1,RMER2(RO) LOAD 1°S INTO RMER2 THROUGH PORT A 
MOVB PORTB, eee ;SELECT PORT B 


MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC, TST51B ;CHECK THE REGISTERS THROUGH PORT B 


;RELEASE THE DRIVE FROM PORT B 


MOVB PORTB,.RMCS2(RO) ;SELECT PORT B 
MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO aA in FOR TYPEOUT 
MOV #135,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT B 


THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT 8 


CLR RELERR ;CLEAR ‘RELEASE ERROR’ INDICATOR 
#ATA‘MOL 'PGM'DPR'DRY!VV.SGDDAT ;COMPARISON CONSTANT 


MOV #RMDS , $BD ;REGISTER ADDRESS INCREMENT 
ADD ADR =REGISTER BASE ADDRESS FOR TYPEOUT 
MOVB PORTA. RMCS2(RO) :SELECT PORT A 

MOV TA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO).$TMPO ;:READ STATUS REGISTER FROM PORT A 

MOVB _—s— PORTB, RMCS2(RO) /GSELECT PORT 8 

MOV PT PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS (RO), SBDDAT "DRIVE STATUS FROM PORT B 

BEO 66$ -BR 'F STATUS FROM PORT B ZERO 

TST STMPO -IS STATUS FROM PORT A ZERO ? 

BE 0 66s “BR IF ZERO 

MOV STMPO, SBDDAT :CHECK STATUS FROM PORT 

MOV PORTA.PTNBR “CHANGE PORT ADDRESS | FOR TYPEQUT 

CMP SGDDAT .$SBDDAT ; COMPARE WITH CONSTAN 

BEQ 67$ “BR IF OK 

EMT 27 

NOP 


——- — 
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;RELEASE THE DRIVE FROM PORT A 


065100 113760 001224 000010 MOVB _—s—PORTA, RMCS2 (RO) ‘SELECT PORT A 
065106 013737 001224 001240 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
065114 012760 000013 000000 MOV #13,RMCS1(RO) ;ISSUE RELEASE THROUGH PORT 
:VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 
065122 005037 001254 CLR RELERR :CLEAR THE "RELEASE ERROR '* INDICATOR 
065126 012737 000012 001122 MOV #RMDS,SBDADR § :FORM THE ADDRESS OF RMDS FOR TYPEOUT 
065134 060037 001122 ADD RO, $8DADR “ADD THE 1/0 BASE ADDRESS 
065140 012737 011700 001124 MOV #MOL !PGM' DPR! DRY! VV, $GDDAT : COMPAR SON CONSTANT 
065146 113760 001224 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
065154 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
065162 042737 024001 001170 BIC #PIP'WRL'OM,$TMP2 :CLEAR DONT CARES 
065170 013737 001170 001164 MOV STMP2,$TMPO :COPY IT INTO "$TMPO' 
065176 042737 100100 001164 BIC HATA'VV,$TMPO  :CLEAR PORT DEPENDENT BITS FROM THE COPY 
5 113760 001226 10 MOVB PORTB,RMCS2(RO) :SELECT PORT 8B. 
665212 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
065220 042737 024001 001172 BIC #PIP'WRL'OM, STMP3 :CLEAR DONT CARES 
065226 013737 001172 001166 MOV STMP3,$TMP1 -COPY IT INTO ‘STMP1' 
2737 100100 001166 BIC HATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
065242 023737 001164 001166 CMP $TMPO ,,$TMP1 “IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
065250 001006 BNE 68$ “BR IF NOT 
065252 005737 001164 TST $TMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
065256 001045 BNE 70$ *BR IF NOT 
065260 104046 EMT 46 
065262 000137 065446 JMP 72$ :BYPASS THE REST OF THE CHECKS 
065266 013737 001170 001126 68%: MOV STMP2.$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
065274 013737 001226 001240 MOV PORTB,PTNBR “SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065302 113760 001226 000010 MOVB -PORTB.RMCS2(RO) :SELECT PORT B. 
065310 005737 001164 TST $TMPO “SEE IF STATUS EQ 0 FROM PORT A. 
065314 001414 BEQ 69$ “BR IF ZERO 
065316 013737 001224 001240 MOV PORTA.PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
065324 013737 001172 001126 MOV $TMP3, $SBDDA :"BAD DATA' F FOR ERROR TYPE OUT 
065332 113760 001224 000010 MOVB _—sC— PORTA, arcs (RO) “SELECT PORT 
065340 005737 001166 TST STMP1 :SEE IF STATUS’ EQ ZERO FROM PORT B. 
065344 001012 BNE 70$ “BR IF NOT 
065346 012737 177777 001254 69%: MOV #-1,RELERR “SET "RELEASE ERROR’ INDICATOR 
065354 012760 000011 000000 MCV #11,RMCS1(RO)  :CLEAR THE DRIVE 
065362 012760 000013 000000 MOV #13.RMC51(RO)  =RELEASE THE DRIVE 
065370 104026 EMT 26 
065372 013737 001170 001126 70$:  ##MOV $TMP2, SBODAT :LOOK FOR BIT FAILURES WHEN RMDS READ 
065400 013737 001224 001240 MOV PORTA, *CHANGE PORT NUMBER 
065406 023737 001124 001126 CMP SGDDAT,  SBDDAT “ALL BITS OK ? 
065414 001401 BEQ 71$ “BR IF OK FROM PORT A. 
065416 7104007 EMT 7 
065420 013737 001172 001126 71$: MOV $TMP3, SBDDAT =CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
065426 013737 001226 001240 MOV PORTB,PTNBR *CHANGE PORT NUMBER 
065434 023737 001124 001126 CMP SGDDAT,$BDDAT  :SEE IF READ OK FROM PORT B. 
- 065442 001401 BEQ 72$ “BR IF OK 
065444 104007 EMT 7 
065446 000240 72$: 


065450 000004 ;LOOP ? 
1661 065452 000137 965700 JMP TST52 :GO TO THE NEXT TEST 
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001126 
001122 


001126 


000000 


TST51B: 


64$: 


65$: 


66$: 


67$: 


;CHECK THE REGISTERS ON THE SELECTED PORT 


RTS 


CKERR ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
RMER1(RO) ,$BDDAT ;GET CONTENTS OF RMER1 

ARMER 1 ,SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO, $BDA pre RH/RM BASE ADDRESS 


R 
SGODAT WHAT REGISTER > BE 
SGDDAT,SBDDAT 1S Hy REGISTER OK ? 
643 ;BR IF OK 
CKERR ;SET THE REGISTER wy ERROR INDICATOR 
RMCS1(RO),$BDDAT ;GET THE CONTENTS OF RHCS1 
wRMICS! -SBDA ADR =; FORM ADDRESS OF REGISTER 
RO,$BDA s;ADDRESS BASE 


ACPE. SBDDAT 71S ‘MCPE’ SET ? 
i ; F NOT 
MTRE,RMCS1(RO) ;CLEAR ‘MCPE’ 


CKE ;CLEAR THE ‘CHECK ERROR’ INDICATOR 
GMERSCRO) , SBDDAT ;GET CONTENTS OF RMER 
#RMER?, $BD R FORM aan ie ADDRESS 4 ERROR MESSAGE 
RO, $BDADR "SAD RM BASE ADDRESS 
SGDDAT : WHAT RREGISTER SHOULD BE 
SGDDAT,S$BDDAT ;1S THE REGISTER Ok ? 
66$ =BR IF OK 
CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
RMCS1(RO), SBDDAT™ :GET THE CONTENTS OF RHCS1 
#RMCS1, SBDADR -FORM ADDRESS OF REGISTER 
RO, S$BDADR > ADDRESS BASE 
#MCPE , SBDDAT 31S *MCPE* SET ? 
:BR IF NOT 
AMTRE,RMCSI(RO) ;CLEAR "MCPE* 
PC ;RETURN 


FARRAR AAAAAAEAKEAEAERAEEAERERAAEAE AERA AEEAAERARA AERA EARERAE ERS 


‘BUT NEWTEST HERE 


MARES AESGEOSZLRASLLASLERAAE SAE RRA RRR ARR ARARARARRAARARARRA SAAS A ALAS SS | 


+ST52: 


SCOPE 


Oe ere ee a ne ee ee ee ee ee ee ee 


END OF PASS ROUTINE 
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.SBTTL END OF PASS ROUTINE 


WETTTITI LILI titiiiiiiiiiiiiiiiiiciii iii iii iii ii 
: INCREMENT THE PASS NUMBER ($PASS) 

:*TYPE ‘END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvyyy’’ 
s*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 


:*IF THERES A oT nae GO TO IT 
:eIF THERE ISN'T 


SEOP: 
TST KYBCTL 
BEQ x. 
JMP EXEC 
CLR STSTNM 
CLR STIMES 
INC SPASS 
001100 BIC #100000, $PASS 
DEC (PC)+ 
SEOPCT: .WORD 
BGT SDOAGN 
MOV (PC) +,a(PC)+ 
SENDCT: .WORD 1 
SEOPCT 
TYPE Pec 
jigs: ASCIZ <12><15>/END PASS #/ 
MOV SPASS .-(SP) 
TYPDS 
TST SERTTL 
BEQ $GT42P 
TYPE 675 


MOV SERTTL,~(SP) 


TYPDS 
CLR SERTTL 
$GT42P: TYPE ,SCRLF 
$GET42: MOV af42,R0 
BEQ SDOAGN 
RESET 
SENDAD: JSR PC, (RO) 
NOP 
NOP 
NOP 
SDOAGN: 
JMP a(PC)+ 
SRINAD: .WORD TSTIAA 
000 $ENULL: .BYTE <-1,-1,0 
~EVEN 





JUMP TO TSTIAA 


66$ 
/ TOTAL ERRORS 


sENTERED TEST VIA KEYBOARD COMMAND ? 
7BR IF NOT 


+ RETURN TO KEYBOARD CONTROL 
;ZERO THE TEST NUMBER 

:37ER O THE NUMBER OF ITERATIONS 
; INCREMENT THE PASS NUMBER 
i DON'T ALLOW A NEG. NUMBER 


32 VES 
; RESTORE COUNTER 


si ASCIZ STRING 
;GET OVER THE ASCIZ 


::SAVE SPASS FOR TYPEOUT 
72 TYPE PASS NUMBER 
saee if ANY ERRORS THIS PASS 


SINCE LAST REPORT 
:: SAVE SERTTL FOR TYPEOUT 
:; TOTAL NUMBER OF ERRORS 
::GO TYPE--DECIMAL ASCII WITH SIGN 
:: CLEAR ERROR TOTAL 
> TYPE CARRIAGE RETURN, LINE FEED 
GET ge yet SS 
=: CLEAR THE WORLD 
::G0 TO MONITOR 
3; SAVE ROOM 
= SACTV1 
: sRETURN 
: NULL CHARACTER STRING 


SEQ 9167 


CZRMRBO wt eho I DU POR TST 1 


CLOCK SUBROUTINES 


a 8 ot a0 w8 xh wh aed at 
WONAUVUSWN HO DOONOUSwro 
5 
Vv! 

oO 


012737 
7 


000021 
20 
000021 
001260 


ee ee eee ee 
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SEQ 0168 


.SBTTL CLOCK SUBROUTINES 


;ROUTINE TO CHECK FOR KW11=L OR KW11-P CLOCKS 
sIF CLOCK IS PRESENT, THE CLOCK WILL BE STARTED 


000004 CKCLK: MOV WCKCLK1,@#ERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
CLR AHERRVEC+2 PSW 
TST LKCSR “CHECK FOR KWw11-P 
MOV $LPVEC,R1 ‘KW11-P VECTOR ADDRESS 
MOV wCAOCK , (R1)+ ‘SET UP KW =P VECTOR 
MOV #300, ( “PSW = PRI 6 
113024 MOV #=1 Sst KcSB “LOAD COUNTER BUFFER WITH 1°S 
113014 MOV #135 ,QSLKCSR “SET CLOCK = CNT UP, 16MS, CONT INT 
CKCLK1: ADD #4, SP ‘RESTORE TME STACK POINTER 
000004 MOV ACKCLK2,@4ERRVEC i CHANGE ERROR VECTOR TO CHECK FOR KW11-L 
TST a$LKks sLOOK FOR KW11-L 
MOV SLLVEC,R1 “KW11-L VECTOR ADDRESS 
MOV WCLOCK,(R1)+ — ;SET UP KWII-L VECTOR 
MOV # R1 *PSW 16 
112760 MOV #100, a$LKS “SET KW11-L INTERRUPT 
BR CKCLK3 
CKCLK2: ADD #4,S5P sRESTORE THE STACK POINTER 
ADD #2, (SP) “ INCREMENT RETURN, NO CLOCK 
000004 CKCLK3: Moy #6. @MERRVEC “RESTORE THE ERROR VECTOR 
:ROUTINE TO COUNT CLOCK TICKS 
001256 CLOCK: ADD #17., TIME :ADD 17 MS TO ELAPSED TIME COUNTER 
BCC 1$ “BRANCH IF NO OVERFLOW 
001256 MOV 4-1, TIME SOVERFLOW ~ RESTORE MAXIMUM COUNT 
18: TST WATCH *1S WATCH ALREADY ZERO ? 
BEQ 2$ “BR IF IT IS 
001260 SUB #17. ,WATCH “ SUBTRACT 17 MS FROM WATCH DOG COUNTER 
BPL 2$ “BR IF NOT MINUS 
CLR WATCH “CLEAR WATCH DOG COUNTER 
2$: RT! RETURN 
:ROUTINE TO CALCULATE + AND - 25% TIME TOLERANCE VALUES 
TOLER: SUB #4,SP :SETUP STACK 
MOV 4(SP), (SP) *SAVE STAC 
MOV a(R5)+,-(SP) | :GET TIME VALUE 
MOV (SP) ,4(SP) “MOVE TIME VALUE 
MOV (SP) ,6(SP) *MOVE VALUE AGAIN 
ASR (SP) “DIVIDE BY 
ASR _—. (SP) “DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
ADD (SP) .4(SP) “CALCULATE UPPER LIMIT FOR TIMEOUT 
SUB (SP)+,4(SP) “CALCULATE LOWER LIMIT FOR TIMEOUT 
RTS R5 RETURN WITH TOLERANCES ON THE STACK 


re a en ea me ee eee 


— 
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, 


000416 


000002 
912637 
022737 

30 


001103 
177777 
000004 
066504 
177766 
177777 
066520 
000004 
177777 
000001 


— eee ee 


L 
MACRO V04.00 4=-APR-81 18:06:25 PAGE 18 


112540 


000004 


067270 


000004 
067270 
067270 


067270 
067270 
177766 


001140 


112536: 


—_— . ee 


-SBTTL SCOPE HANDLER ROUTINE 


J RAAAAAAAAAAAAAAAARAAAAAAARAAAAAAEAAAAAARAAEAEAARARARAAARRARREREH EH 


:STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


IT WILL INCREMENT 


;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

LOOP ON TEST 

INHIBIT ITERATIONS 


;;SCOPE=I0T 


+ *SW14= 

> *SW11= 1 

= *CALL 

:* SCOPE 


SSCOPE: 


1$: 
9$: 
: ARAAASTART 


$XTSTR: BR 


5$: 


2000$: 


2001$: 
2002$: 


PC,STOP 
#B1T14,aSWR 
9$ 

SOVER 


OF CODE FOR THE XOR 
6$ 


@VERRVEC , =~ (SP) 
een 


a4#177060 
ee 


SVLAD 
(SP)+, (SP)+ 
(SP) +, @#ERRVEC 


SOVER yf ON 
So A na THE XOR™ TESTERMHABA 


#~-1 , CPSAVE 
$ 


#-1, CPSAVE 
#2001$, (SP) 


— (SP) +, ERRVEC 


#-1, CPSAVE 
#B1T00, CPSAVE 
#8] see f 1 ‘vw 
SWR,-(SP) 
a(SP) ,-(SP) 
#176, SwR 
(SP) . aSWR 
#81709, aSWR 


‘ 
(SP)+,a(SP) 
(SP)+,SWR 





;;TEST FOR CHANGE IN SOF T-SWR 


;;LOOP ON PRESENT TEST? 
33NO IF SW14=0 
;; JUMP OVER SCOPE ROUTINE 


He Haye 
; IF RUNNING ON THE a TESTER CHANGE 
ZTHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
S ISAVE THE CONTENTS OF THE ERROR VECTOR 
23 SET FOR TIMEOUT 
OUT ON XOR? 
; ;RESTORE THE ge VECTOR 
:GO TO THE NEXT TEST 
;CLEAR THE STACK AFTER A TIME OUT 
; DRESTORE THE ERROR VECTOR 
THE PRESENT TEST 


OR “yg ERROR OCCURRED? 
:7SEE IF TIMEOUT WAS a. RECORDED 


ad 


; URN ADDRESS 
::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 


::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
3;SETUP RETURN ADDRESS 


; RESTORE CONTENTS OF ERROR VECTOR 
+SEE —_ HAS CPU ERR REG TIMEOUT INDICATION 


0 
SISEE IF THE POWER MONITOR BIT IS ON 
et oF TO CONTINUE ae or CLEAR 


SIGET Sere SWR VALUE 

T ALLOW LOOP ON ERROR ON THIS ERROR 
‘CALL SPECIAL POWER FAIL BIT ERROR CALL 
« RESTORE SWR TO ORIGINAL VALUE 

; RESTORE SWR ADDRESS 


AC ee A ee 


SEQ 0169 


ee ee 8 ee —_—_ —— ee eae ee ——_ ee ee ~~ 
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§ SCOPE HANDLER ROUT INE SEQ 0170 
| 066614 20038: 
| 066614 105037 001103 4$: CLRB = SERFLG ;;ZERO_ THE ERROR FLAG 
066620 005037 001176 CLR $TIMES “CLEAR THE NUMBER OF ITERATIONS TO MAKE 
| 066624 032777 004000 112306 38: BIT #B1T11,aSWR ::INMIBIT ITERATIONS? 
066632 001011 BNE “BR IF YES 
| 066634 005737 001100 TST $PASS ii IF FIRST PASS OF PROGRAM 
066640 001406 BEQ 1$ INHIBIT ITERATIONS 
066642 005237 001104 INC T “INCREMENT ITERATION COUNT 
066646 023737 001176 001104 CMP $TIMES,SICNT $3 CHECK THE NUMBER OF ITERATIONS MADE 
066654 002012 BGE OVER IF MORE ITERATION REQUIRED 
066656 012737 001104 18: MOV #1,$I1CNT : 7REINITIALIZE THE ITERATION COUNTER 
013737 066716 001176 MOV SMXCNT,$TIMES ::SET NUMBER OF ITERATIONS TO DO 
066672 105237 001102 $SVLAD: INCB $TSTNM “COUNT TEST RS 
066676 011637 0011 MOV (SP) , $LPADR : SAVE SCOPE LOOP ADDRESS 
066702 013777 001102 112232 $OVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST R 
066710 013716 001106 MOV SLPADR. :=FUDGE RETURN ADDRESS 
066714 000002 RTI sFIXES PS 
: 066716 000005 SMXCNT: 5. “MAX. NUMBER OF ITERATIONS 
3 :DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 
5 066720 STOP: 
066720 012746 000140 MOV #PR3,-(SP) ::PUT NEW PS ON STACK 
066724 012746 06673 MOV #64$.-(SP) PUT NEW PC ON STACK 
066730 000002 RT] POP NEW PC AND PS 
‘ 066732 643: 
. :RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 
9 066732 012746 000240 MOV #PRS,~-(SP) ::PUT NEW PS ON STACK 
066736 012746 066744 MOV #65$.-(SP) PUT NEW PC ON STACK 
066742 000002 RTI > :POP NEW PC AND PS 
066744 65$: 
10 066744 000207 RTS PC RETURN 


ene em ene ~ e - 


f 
—-- 
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ERROR HANDLER ROUTINE SEQ 0171 


1 .SBTTL ERROR HANDLER ROUTINE 


PRESB SBESBASLASASASLALSASARARSLARE REAR RRR RR RASA RRR SRR R RR ASA SARS AAS SS SE 


‘THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROK COUNT, 
> *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
>*AND GO TO SERRTYP ON ERROR 

3a THG -SMITCH OPTIONS Beg BY THIS ROUTINE ARE: 


HALT ON ERR 
* eSW1 3=1 INHIBIT ERROR TYPEOUTS 
:*$10=1 BELL ON ERROR 
*“* 
:* ERROR N : ;ERROR=EMT AND N=ERROR ITEM NUMBER 
066746 105037 067272 SERROR: CLRB —XIBSAVE ::CLEAR THE ITEM BYTE SAVE LOCATION 
066752 104407 CKSWR +: TEST FOR CHANGE IN SOFT-SWR 
066754 713737 001102 001246 MOVB = $TSTNM, TSTNUM 
066762 105237 001103 7$: INCB  _—« $ERFLG ;3SET THE ERROR FLAG 
066766 001775 BEQ 7$ “DON'T LET THE FLAG GO TO ZERO 
066770 013777 001102 112144 MOV STSTNM, aD ISPLAY “<DISPLAY TEST NUMBER AND ERROR FLAG 
066776 032777 112134 BIT #B1T10,aSWR ; BELL ON ERROR? 
067004 001402 BEQ 1$ IP 
067006 104401 001202 TYPE ,$BELL “RING BELL 
067012 005237 001112 1$: INC SERTTL *=COUNT THE NUMBER OF ERRORS 
067016 011637 001116 MOV (SP) SERRPC GET ADDRESS OF ERROR INSTRUCTION 
067022 162737 000002 001116 | SUB RPC 
067030 117737 112062 001114 MOVB SSERRPC $ITEMB ::STRIP AND SAVE THE ERROR ITEM CODE 
067036 032777 001000 112074 BIT #BITO9, aSwR ;3SEE IF LOOP ON ERROR IS SET 
067044 001960 - BNE 1004$ “BRANCH AROUND ROUTINE IF SO 
067046 122737 000177 001114 (MPB  =s #177, SITEMB 33SEE IF THIS IS THE POWER FAIL CALL 
067054 001454 BEQ 1004$ **BRANCH AROUND ROUTINE IF IT IS 
067056 105737 067272 STB  IBSAVE ; 3 SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
067062 001047 BNE 1003$ CH IF SO 
067064 022737 177777 067279 CMP #~1,CPSAVE ; SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
067072 001445 BEQ 1004$ H IF SO 
067074 013746 000004 MOV ERRVEC,~(SP) $1 SAVE CONTENTS OF ERROR VECTOR 
067100 012737 067116 000004 MOV #1000$.ERRVEC ::SETUP 'TRAP* RETURN ADDRESS 
067106 013737 177766 067270 MOV 177766, CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
067114 000406 BR 1001$ 
067116 012737 177777 067270 1000$: MOV #-1, CPSAVE ::SET CPU ERROR REGISTER TIMEOUT INDICATOR 
067124 012716 067132 MOV #1001$, (SP) >:SETUP RETURN ADDRESS 
067130 000002 RTI 
067132 012637 000004 1001$: MOV (SP)+,ERRVEC  ;:RESTORE CONTENTS OF ERROR VECTOR 
022737 177777 067270 1002$: CMP #~1,CPSAVE ;;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
047144 001420 BEQ 1 CH IF SO 
967146 032737 000001 067270 BIT #81T00, CPSAVE 73 SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
067154 001414 BEQ 1004$ ‘BRANCH IF OK 
067156 042737 000001 177766 BIC #B1T00, 177766 : 3 CLEAR THE BIT FOUND SET 
067164 113737 001114 067272 MOVB §$ITEMB.IBSAVE ::MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
067172 112737 000177 001114 MOVB  #177,$1TEMB "SET SITEMB TO SPECIAL POWER FAIL POINTER 
067200 000402 BR 1004$ > :BRANCH OVER IBSAVE CLEARING 
067202 105037 067272 10038: CLRB —«IBSAVE ::CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
067206 032777 020009 111724 BIT #B1113,aSWR ;SKIP TYPEOUT IF SET 
06721 004 BNE 20$ “SKIP TYPEOUTS 


4 001 
067216 004737 067274 JSR PC, $ERRTYP ::GO TO USER ERROR ROUTINE 


-_— . -_ ——-— LL A a SS me ————- -- —— — — —-- —_-_--o _ —_ — aimed 
f -- —_——- — —_ = - a --- —— 
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| ERROR HANDLER ROUTINE SEQ 0172 


067222 104401 001207 TYPE ,SCRLF 
| 067226 208: 
067226 105737 067272 2$: TSTB ee +3 SEE IF IBSAVE Is LOASED 
| 067232 00100 BNE $ $3 CH IF NOT = NO HALT ON PWR MON BIT ERROR 
| 067234 005777 111700 TST @SwWR :;HALT ON 
| 067240 100002 BPL 3$ :;SKIP IF CONTINUE 
067242 000000 HALT ;7HALT ON 
soley 104407 - CKSWR 7; TEST FOR CHANGE IN SOF T=SWR 
067246 022737 066110 000042 CMP MSENDAD ,a442 3zACT=-11 AUTO-ACCEPT? 
067254 001001 BNE 6$ : BRANCH IF NO 
067256 000000 HALT ii YES 
067260 6$: 
067260 105737 067272 TSTB IBSAVE :7;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
067264 001236 BNE 7$ ; ;BRANCH BACK TO CALL ORIGIN/L ERROR 
067266 009002 RT] 7 RETURN 
067270 000000 CPSAVE: .WORD 0 ;;LOCATION TO SAVE CPU ERROR REG CONTENTS 
067272 000000 IBSAVE: .WORD 0 ;;LOCATION TO SAVE ITEM BYTE 


A ti 
a 
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.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


WETTTTI TILL LITT tit itiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii. 
 STHIS ROUTINE USES THE ‘‘ITEM CONTROL he saute: TO DETERMINE wHIC 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB) , 
:*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


067274 SERRTYP: 

067274 104401 001207 TYPE  ,$CRLF "CARRIAGE RETURN'’ & ‘LINE FEED’’ 

067300 010046 MOV RO, =(SP) * = SAVE 

067302 005000 CLR RO ::PICKUP THE ITEM INDEX 

067304 153700 001114 BISB a#$ITEMB,RO 

067310 001004 BNE 1$ :IF ITEM NUMBER IS ZERO, JUST 
‘TYPE THE PC OF THE ERROR 

067312 013746 001116 MOV SERRPC,-(SP) es SERRPC FOR TYPEOUT 

067316 104402 TYPOC -*GO TYPE=-OCTAL ASCII(ALL DIGITS) 

067320 000456 BR 10$ “GET OUT 

067322 122700 000177 1$: CMPB—ss«#*177 RO 1 SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 

067326 001006 BNE 1 “BRANCH IF NOT 

067330 113737 001102 067632 MOVB  $TSTNM, PFTSTN 3 3GET TEST NUMBER 

067336 012700 067472 MOV #PFECH.RO *:MOVE POWER FAIL ERROR CALL TABLE TO RO 

067342 000406 BR 1001$ > :BRANCH TO CALL ERROR 

067344 005300 1000$: DEC RO “ADJUST THE INDEX SO THAT IT WILL 

067346 006300 ASL RO 3: WORK FOR THE ERROR TABLE 

067350 006300 ASL RO 

067352 006300 ASL RO 

067354 062700 001310 ADD #SERRTB.RO : 2 FORM TABLE POINTER 

067360 012037 067370 1001$: MOV (RO) +, 2$ *:PICKUP ‘ERROR MESSAGE’’ POINTER 

067364 001404 BEQ 3$ i: SKIP TYPEOUT IF NO POINTER 

067366 104401 TYPE *: TYPE THE ‘ERROR MESSAGE” 

067370 000000 2$: .WORD 0 ::"ERROR MESSAGE’’ POINTER GOES HERE 

067372 104401 001207 TYPE  ,SCRLF °: "CARRIAGE RETURN’ & "LINE FEED’ 

067376 012037 067406 3$: MOV (RO) +,4$ PICKUP ‘DATA HEADER’ ” POINTER 

067402 001404 BEQ 5$ ::SKIP TYPEOUT IF 0 

067404 104401 TYPE i TYPE THE "DATA HEADER’ 

067406 000000 4$: ,WORD 0 ::"DATA HEADER’ POINTER GOES HERE 

067410 104401 001207 TYPE  ,$CRLF ;3''CARRIAGE RETURN'’ & “LINE FEED™ 

067414 010146 5$: MOV R1.-(SP) : R1 

067416 012001: MOV (RO)+,R1 : $B CKUP ‘DATA TABLE” POINTER 

067420 001415 BEQ 9$ : ;7BR_IF_NO DATA T TYPED 

067422 012000 MOV (RO) +,RO : 3PICKUP, “DATA FORMAT’’ POINTER 

067424 105720 6$: TSTB — (RO) + ::"OCTAL’’ OR ‘DECIMAL 

067426 001003 BNE 7$ ‘BR IF DECIMAL 

067430 013146 MOV a(R1)+,-(SP) SAVE a(R1)+ FOR TYPEOUT 

067432 104402 TYPOC =:GO TYPE--OCTAL ASCII(ALL DIGITS) 

067434 000402 BR 8$ 

067436 7$: 

067436 013146 MOV a(R1)+,-(SP)  ;; SAVE @(R1)+ FOR TYPEOUT 

067440 104405 TYPDS =GO TYPE--DECIMAL ASCII WITH SIGN 

067442 005711 8$: TST (R1) i328 THERE ANOTHER NUMBER? 

067444 001403 BEQ 9S “BR IF NO 

067446 104401 067466 TYPE .11$ “TYPE TwWO(2) SPACES 

067452 000764 BR 6$ *: LOOP 

067454 012601 9$: MOV (SP) +,R1 : RESTORE R1 

067456 012600 10$: MOV (SP) +-RO « "RESTORE RO 


| ¢ 
| € 


——— ae 


a 


104401 
000207 
040 
067502 
120 
124 
067632 
000 
000000 
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001207 
040 
067564 
117 
105 


001116 
000 


-_—-- a ee et 


ae 
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000 
067616 
127 
123 


067270 
000 


TYPE -SCRLF ;i'CARRIAGE RETURN'’ & ‘LINE FEED’ 
RTS PC RETURN 
118: -ASCIZ a, « TWOC2) SPACES 
PFECH: PFECH1, PFECH2 ,PFECH3.PFECH4 ;:WORDS DEFINING TABLES BFLOW 
PFECH1: .ASCIZ. ?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
PFECH2: -ASCIZ 2TESTNO ERR PC CPUERREG? 
PFECH3: .WORD PFTSTN,SERRPC,CPSAVE,0 
PFECH4: .BYTE 029, 
PFTSTN: .WORD :: CONTAINS TEST NUMBER FOR PF BIT ERROR 





ee eee 8 eee me a a ee 


SEQ 0174 


a —- - " — ee — — 
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SE oe 


TYPE ROUTINE SEO 0175 
.SBITL TYPE ROUTINE 
TOR RRRBABABBBRBBRABABRABRBBRABABRBRABABSLESBSRESEE REESE ERR ESE ERR RRR RRR RASS SE SE SC 
* SROUTINE TO TYPE ASCIZ a gy * AES eet MUST TERMINATE WITH A O OvTE - 
> # THE GOUT INE WILL INSERT A R OF NULL CHARACTERS AFTER A LINE FEED. 
+ NOT E1 SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: ®NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
“CA LL 
#1) USING A TRAP INSTRUCTION 
: nai YPE »MESADR ;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
**® 
:* TYPE 
:* ME SADR 
*® 
067634 105737 001157 $TYPE: TSTB STPFLG e315 in A TERMINAL? 
067640 100002 BPL 1$ 
667642 HALT ‘HALT. HERE IF NO TERMINAL 
067644 000407 BR 3 +6 VE 
7 010046 1$ MOV RO,-(SP) :SAVE RO 
067650 017600 000002 MOV a2 (SP) ,RO : GET ADDRESS OF ASCIZ STRING 
067654 112046 2s MOVB (RO) +, =(SP) :PUSH CHARACTER TO BE TYPED ONTO STACK 
067656 1005 BNE 4$ : BR IF IT ISN'T THE TERMINATOR 
067660 005726 TST (SP) + :;1F TERMINATOR POP IT OFF THE STACK 
067662 012600 60$: MOV (SP) +,RO : RESTORE RO 
067664 062716 000002 3$: ADD #2, (SP) : :ADJUST RETURN PC 
067670 RT] : SRETURN 
067672 122716 000011 4$ CMPB #HT , (SP) : ;BRANCH IF <HT> 
067676 14 BEQ 
067 122716 000200 CMPB ACRLF , (SP) : BRANCH IF NOT <CRLF> 
067704 1 BNE 5$ 
067706 005726 TST (SP) + :POP <CR><LF> EQUIV 
067710 104401 TYPE “TYPE A CR AND LF 
067712 001207 SCRLF 
067714 105037 070122 CLRB SCHARCNT :; CLEAR CHARACTER COUNT 
067720 000755 BR 2s 7 2GET NEXT CHARACTER 
067722 004737 070004 5$: JSR PC,STYPEC :GO TYPE THIS CHARACTER 
067726 123726 001156 6$: CMPB SFILLC,(SP)+ <21S IT TIME FOR A CHARS .? 
067732 001350 BNE 2$ :z1F NO GO GET NEXT CHAR. 
C67734 013746 001154 MOV SNULL .~ (SP) ::GET # OF FILLER CHARS. NEEDED 
; AND THE NULL CHAR. 
067740 105366 000001 7$: DECB 1¢(SP) ;:;DOES A NULL NEED TO BE TYPED? 
067744 002770 BLT 6$ ; BR IF ee POP THE NULL OFF OF STACK 
067746 737 070004 JSR PC STYPEC ::GO TYPE A NULL 
067752 105537 070122 DECB SCHARCNT ::DO NOT COUNT AS A COUNT 
067756 770 BR 7$ ret 
sHORIZONTAL TAB PROCESSOR 
067760 112716 8$: MOVB #* (SP) a RELATE TAB WITH SPACE 
067764 004737 070004 9$: JSR PC, $TYPEC ;TYPE A SPACE 
067770 132737 000007 070122 BITB #7 ,SCHARCNT : ;BRANCH IF NOT AT 
067776 001372 BNE 9$ : STOP 
070000 005726 TST (SP) + > + POP SPACE OFF STACK 
070002 000724 BR 2$ ::GET NEXT CHARACTER 





A ET TL A em me 
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——— a ee 


se Rn 


Z eee ee eee ne. eee a ET ee 
OS 


070124 


005726 


117134 
111130 
177600 
000023 
111110 
111104 


177600 
000021 


111066 
300 
070122 
000012 
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111060 
000002 


000002 


STYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


SCHARCNT : .WORD 


S$TYPEX: RTS 


asTKS 

10$ 

a$TKB,=(SP) 

#177600, (SP) 

#SXOFF, (SP) 
102$ 

asks 

101$ 

a$TKB, (SP) 
#177600, (SP) 
#$XON, (SP) 
101$ 

(SP) + 

asTPs 

10$ 

2(SP) ,a$TPB 
#cR. .2(SP) 
SCHARCNT 
#LF, se (SP) 
$TYP 

ers. 


0 
PC 


: + CHAR IN KYBD BUFFER? 
IF NOT 


:GET CHAR 
STRIP soe BiTS 
;2WAS CHAR X 
;-BR IF NOT 


; WAIT FOR CHAR 


;;BR IF NOT 
scF IX STACK 
:;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
e415 ae oe A CARRIAGE RETURN? 


H IF NO 
:YES==CLEAR CHARACTER COUNT 
2315 ge LINE FEED? 


4 & CTER 
7; CHARACTER COUNT STORAGE 


EE SN Rm meee. cee MPEO- = C2 Se —-- 


SEQ 0176 


_ CZRMRBO RMOS/3/2 DU POR TST 1 


BINARY TO OCTAL (ASCII) 


070126 
079132 


070266 
070270 


AND TYPE 


000000 
070353 


070553 


070352 
070351 
000012 


070352 
177770 


| 
| 
| 
| 
CALL 
000001 ~ MO 
000002 
000406 BR 
3 ~ MO 
062704 000006 : 
070220 MOVB 
0702 
070234 000404 BR 
006105 
006103 
ee Ce Te 


G 3 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


n SE RAARAAAAAAAAAAAAARAAAAAARAAAAAAARAAAAARAARARAAAAAARAHAAAEAAAAAHAHE 


:*THIS ROUTINE IS USED TO a> A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:*OCTAL (ASCII) NUMBER AND T 


YPE IT 
:*$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>*CALL: 

: V NUM ,= (SP) 
se TYPOS 

e@ -BYTE N 

;* -BYTE M 

7* 

;® 


: ;NUMBER TO BE TYPED 
:;CALL FOR TYPEOUT 
aod oR 6 FOR NUMBER OF DIGITS TO TYPE 


ay :1=TYPE LEADING ZEROS 
‘+ O=SUPPRESS LEADING ZEROS 


;*® 
:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


: *$TYPOS OR $TYPOC 


* CALL: 
;® MOV NUM, = (SP) 


:* TYPON 


; NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


: #81 YPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


** 
e 


3° MOV. NUM,=-(SP) 
:* TYPOC 
$TYPOS: MOV @(SP) ,~(SP) 
070351 VB 1(SP) ,SOF ILL 
MOVB (SP)+, E+1 
ADD #2, (SP) 
TYPON 
070551 $TYPOC: MOVB #1, SOF ILL 
07035 vB #6 , SOMODE +1 
070350 $TYPON: MOVB #S ,SOCNT 


MOVB SOMODE +1 ,R4 
NEG R4 
ADD #6 RS 
MOVB oc E 
SOF ILL RS 

MOV 12(SP) ,R5 
CLR R3 

1$ ROL R5 

3$ 

2$ ROL R5 
ROL R5 
ROL R5 
MOV R5,R3 

3$: ROL R3 
DECB SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 4$ 
TST R4 
BEQ 5$ 

4$: INC R4 


0 Ge emmmeteee ee pe + Oe ee ee 


; NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


¢ PICKUP THE MODE 

;;LOAD ZERO FILL SWITCH 
sNUMBER OF DIGITS TO TYPE 

 ZADJUST RETURN ADDRESS 


>:;SET THE ZERO FILL SWITCH 
::SET FOR SIX(6) DIGITS 
:;SET THE ITERATION COUNT 
7: SAVE R3 
: SAVE R4 
: SAVE R5 
::GET THE NUMBER OF DIGITS TO TYPE 
et pes IT FOR MAX. ALLOWED 
::SAVE IT FOR USE 
::GET THE ZERO FILL SWITCH 
: NPUT NUMBER 
sti T WORD 
: RO TATE MSB INTO ‘'C’’ 


:GO DO MSB 
:: FORM THIS DIGIT 


;GET LSB OF Het 2 ,DiGit 
: TYPE THIS DIGIT 


IF NO 
:3GET i OF JUNK 
3: TEST FOR 0 
; : SUPPRESS THIS Q? 


;BR IF YES 
;:DON'T SUPPRESS ANYMORE 0°S 


OO Oe es seme ee ees 


SEQ 0177 


H 
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BINARY TO OCTAL (ASCII) AND TYPE 360 0178 
070272 052703 000069 BIS #°0,R3 ::MAKE THIS DIGIT ASCII 
070276 052703 600040 S$: BIS #’ °R3 “:MAKE ASCII IF NOT ALREADY 
070302 110337 070346 MOVB R23. 8$ * SAVE FOR TYPING 
070306 104401 070346 TYPE 8$ °:GO TYPE THIS DIGIT 
070312 105337 070350 7$: DECB = $OCNT :;COUNT BY 1 
070316 003347 BGT 2$ ::BR IF MORE TO DO 
070320 002402 BLT 6$ ::BR IF DONE 
070322 005204 INC RG “INSURE LAST DIGIT ISN’ 1 A BLANK 
070324 000744 BR 2$ *:GO DO THE LAST DIGIT 
070326 012605 68: MOV (S?)+,R5 « “RESTORE R5 
070330 012604 MOV (SP)+_R4 * “RESTORE R4 
070332 012603 MOV (SP) +.R * SRESTORE R3 
070334 016666 000002 000004 MOV 2(SP) °4(SP) «SET THE STACK FOR RETURNING 
070342 012616 MOV (SP) +. (SP) 

070344 RTI : : RETURN 

070346 000 8$: .BYTE 0 17 STORAGE FOR ASCII DIGIT 
070347 000 “BYTE 0 RMINATOR FOR TYPE ROUTINE 
070350 000 $OCNT: .BYTE 0 *OCTAL DIGIT COUNT ER 

070351 000 $OFILL: .BYTE 0 “ZERO FILL SWITC 

670352 000000 $OMODE: .WORD 0 «NUMBER. OF DIGITS TO TYPE 


| sss thst sss 
LL EEE SD Se ee er ee = ——- —* 


. i 
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.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MARRRRABRAEBAAALAARRARRRRRRRRR RRR RR RRR RR RRA RRRRRRRRRRRARSSAS ASSES SS | 
‘THIS ROUTINE IS USED TO CHANGE A eau! BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. Pg wy ON WHETHER THE 
> *NUMBER IS POSITIVE OR a hy A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
:*REPLACED WITH SPACES. 


= *CALL 
:* MOV NUM, = (SP) :PUT THE BINARY NUMBER ON THE STACK 
* TYPDS «°GO TO THE ROUTINE 

070354 $TYPDS: 

070354 010046 MOV RO,-(SP) : PUSH RO ON STACK 

070356 010146 MOV R1.=-(SP) + :PUSH R1 ON STACK 

070360 010246 MOV R2,-(SP) *=PUSH R2 ON STACK 

070362 34 MOV R3,-(SP) + :PUSH R3 ON STACK 

070364 010546 MOV R5.-(SP) ; sPUSH_R5 ON STACK 

012746 020200 MOV #20200,-(SP) “SET BLANK SWITCH AND SIGN 
670372 016605 000020 MOV 20(SP) .R5 ::GET THE INPUT NUMBER 


070400 R5 - INARY NUMBER 
070402 112766 000055 0900001 , MOVB #1 (SP) ::MAKE THE ASCII NUMBER NEG. 


005000 : - > ZERO S 
070412 012703 070570 MOV #$DBLK,R3 >: SETUP THE OUTPUT POINTER 
070416 112723 000040 MOVB = #"- ~ (R3)+ *:SET THE FIRST CHARACTER TO A BLANK 
070422 005002 2$: CLR R2 77CLEAR THE BCD N NUMBER 
070424 016001 070560 MOV $DTBL (RO) .R1 *GET THE CONSTAN 
160105 3$: SUB R} ARS 7 7F ORM THIS BCD DIGIT 


005202 INC R2 ‘INCREASE THE BCD DIGIT By 1 
000774 


BR 
070440 060105 4$: ADD R1,R5 ;;ADD BACK THE CONSTANT 
070442 005702 TST R2 oat ie BCD ae 


001002 BNE ALL THROUGH I 
070446 105716 TSTB (SP) 7:5TILL DOING LEADING 0°S? 
070450 100407 BM] 7$ ssR_ if YES 
070452 106316 5$: ASLB (SP) > MSD? 


F NO 
6663 000001 177777 MOVB  1(SP),-1(R3) ::YES==SET THE SIGN 

070464 052702 000060 6$: BIS #°0,R2 >:MAKE THE BCD DIGIT ASCII 

070470 052702 000040 7$: BIS #’ ~Ro : “MAKE IT A SPACE IF NOT ALREADY A DIGIT 

070474 M0223 MOVB _—R2,| (R3) + *:PUT THIS CHARACT \ IN THE OUTPUT BUFFER 


070520 116663 177777 177776 MOVB -1(SP) ,-2(R3) >: YES==SET THE SIGN FOR TYPING 
070526 105013 of: CLRB (R3) ::SET THE TERMINATOR 

070530 012605 MOV (SP)+,R5 ::POP STACK INTO R5 

070532 012603 MOV (SP)+,R3 ::POP STACK INTO R3 

070534 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

070536 012601 MOV (SP)+.R1 ::POP STACK INTO R1 


i 
| 
8$ 
0 0007 BR 6$ ::60 TO ASCII 
070514 105726 8$: TSTB  (SP)+ ::WAS THE LSD THE FIRST NON-ZERO? 
100003 9$ “BR 


te te ee ee ee ee ~ 


erence ene = 


J 3 
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070540 012600 MOV (SP) +,RO ;;POP STACK INTO RO 

070542 104401 0670570 TYPE $DBLK NOW TYPE THE NUMBER 

070546 016666 000002 000004 MOV 2(SP) ,4(SP) “ADJUST THE STACK 

070554 012616 MOV (SP)+. (SP) 

970556 000002 RTI + RETURN TO USER 
0560 023420 $DTBL: 10000 | 

070562 001750 1 

070564 000144 


1 e 
070570 $DBLK: .BLKW 


——~ --- - —-- ~_— — - — - —_— 


x 2 
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' 
| Y INPUT ROUTI SEQ 0181 
| 


.SBTTL TTY INPUT ROUTINE 
SF AAAAAARARAARARAAAAAAAEAAAAAAARAEAAAAAARARAAAHAAREEAAAREHARAEA AHEAD 
“ENABL LSB 
07 000000 $TKCNT: .WORD 0 :NUMBER OF 1 TEMS IN QUEUE 
070602 000000 STKQIN: .WORD 0 «INPUT POINTER 
070604 000000 $TKQOUT: .WORD 0 + OUTPUT POINTER 
070606 $TKOSRT: .BLKB 1 +: TTY KEYBOARD QUEUE 
070607 $TKQEND=. 
EVEN 
:*TK INITIALIZE ROUTINE 
**THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
CALL: 
3* JSR PC ,STKINT 
:* RETURN 
670610 005037 070600 $TKINT: CLR STKCNT ::CLEAR COUNT OF ITEMS IN QUEUE 
070614 012737 070606 070602 MOV WSTKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF | THE 
70622 013737 070602 070604 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
070630 012737 070660 000060 MOV #STKSRV ,@ATKVEC S HINITIALIZE THE KEYBOARD VECTOR 
070636 012737 000200 000062 MOV #200,QWTKVEC+2 ;;"BR'’ LEVEL 4 
70644 005777 110276 TST a$TkB *CLEAR DONE FLAG 
070650 012777 000100 110266 MOV #100, aSTKS ; 7ENABLE TTY KEYBOARD INTERRUPT 
070656 000207 RTS PC > RETURN TO CALLER 
:*TK SERVICE ROUTINE 
>*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
>*IT IN THE QUEUE. 
:*IF THE CHARACTER IS A ‘‘CONTROL-C’’ (*C) STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'' RESTART ADDRESS (START) 
070660 117746 110262 $TKSRV: MOVB  a$TKB,-(SP) ;;PICKUP THE CHARACTER 
070664 042716 177600 BIC #°C177, (SP) “STRIP THE JUNK 
070670 021627 000021 CMP (SP) ,4#$XON *:1S IT A RANDOM XON? 
070674 001002 BNE 30$ : ;BRANCH IF NO 
070676 005726 TST (SP) + >=CLEAN RANDOM XON OFF STACK 
070700 000002 RTI > =RETURN 
070702 30S: 
070702 021627 000003 CMP (SP) #3 ::1S IT A CONTROL C? 
70706 001007 E i$ > :BRANCH IF NO 
070710 104401 072006 TYPE SSCNTLC =:TYPE A CONTROL-C (*C) 
070714 004737 070610 JSR PC, $TKINT >: INIT THE KEYBOARD 
070720 005726 TST (SP) + *=CLEAN UP STACK 
070722 137 002240 JMP START : CONTROL C RESTART 
070726 021627 000007 1$: CMP (SP) #7 S IT A CONTROL G? 
070732 001 BNE CH IF NO 
070734 022737 000176 001140 CMP ASWREG, SWR STS SOFT-SWR SELECTED? 
070742 0015 BEQ 6$ *:G0 TO SWR CHANGE 
070744 
070744 022737 000001 070600 CMP #1, $TKCNT >:1$ THE QUEUE FULL? 
070752 001004 E 3$ > :BRANCH IF NO 
070754 104401 001202 TYPE  $BELL *:RING THE TTY BELL 


| nnn Oe ee ne ee ee ee ee 


eee oe 


CZRMRBO gy ALS DU POR TST 1 


TTY INPUT ROUTI 


071142 


071144 


071166 


071174 
071200 


071210 


sacgeeces * 
NOWWU 
wv 


746 
6 


022737 


123727 


005077 


000023 
110146 
110140 
110134 
177600 
000021 
000100 


070600 
000140 


000175 
000040 
177516 
070602 
070602 


070606 


000176 
110020 
110014 


177600 
000007 


001134 


070610 
he 


072020 
072025 


i 
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110112 


070607 
070602 


001140 


000001 


001135 


3$: 


318: 


328: 


4$: 


5$: 


éCKSUR: 


: *ROUTINE OR FROM 
>*CONTROL-G BEING TYPED, AND T 
6$: CMPB SAUTOB , #1 


SGTSWR: 


004737 
071162 0 
00000 
071204 , 000176 


TST (SP) + 
BR 5$ 

CMP (SP) #23 
BNE 32$ 

CLR a$TKS 

ST (SP) + 

TSTB. =—s SKS 
BPL % 
MOVB  a$TKB.~-(SP) 
BIC ar177, (SP) 
CMP (SP)+,#21 
BNE 1 
MOV #100, a$TKS 
RTI 

INC STKCNT 

CMP (SP) #140 
BLT 

CMP (SP) #175 
BGT 4$ 

BIC #40, (SP) 
MOVB  (SP)+,a$TKQIN 
INC TKQIN 


$TKQI 
a STKQIN, #STKQEND 
MOV #STKQSRT ,STKQIN 


IS gk a FROM 


; *SERVICE THE TEST FOR CHANGE IN 
*CALL WHEN OPERATING IN TTY INTERRUPT 
— SWR 


°C 
338 
I 


S=3¢ 


* Pe Be 

ar Ecovo 
m 

ad 


“ 
wm 
ome 


: 


© 
ee 
ee 


8 


‘ 
ee 


. . >. — 
7 DD 
wn 
ae 


@e Ge 
a 
~m 
oe 


fae 


$360 OFF T 


: TRESE 
TURN 


mm 

“rm 

Sa ~ 
me 


s-3°8 
Ps 


CHARACTER OFF OF STACK 
A iy el 

F_NO 
E 
C 


TTY Mes per INTERRUPTS 
HAR OFF STACK 


A CHAR 
TIL ITS THERE 

CHARACTER 

joe T ASCII 

CONTROL -Q? 

F_NO 

TTY KEYBOARD INTERRUPTS 
THIS a en 


CH IF NO 
T THE POINTER 


Pettitt ciiiiiiiit titi i iii 
« kSOF TWARE SWITCH REGISTER CHANGE ROUTI 
: *ROUT INE THE TRAP 


HANDLER, AND WILL 
N SOFTWARE SWITCH REGISTER TRAP 


MODE . 
CMP :1S THE SOFT-SWR SELECTED 
BNE <TEXIT IF NOT 
TSTB asTKs *:7S A CHAR WAITING? 
BPL 15$ *:JF NOT, EXIT 
MOVB  a$TKB,-(SP) >: YE 
BIC wncirt (SP) *:MAKE IT 7-BIT ASCII 
CoP (SP a7 uIP iT A CONTROL-G? 


* 


BEQ 

TST (SP) + 

JSR PC .STKINT 
CLR a$TKS 
MOVB #1,S1INTAG 


TYPE ,SCNTLG 
, SMSWR 
SWREG , = (SP) 


SISET 


F < IT IN THE TTY QUEUE 


eter isiiiitiiiiiiiti iii ii 
® CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
THE SOF — SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
HE WARE SWITCH REGISTER BEING SELECTED. 
WE RUNNING IN AUTO-MODE? 


Y 
INTERRUPT MODE INDICATOR 


: ECHO THE CONTROL-G (*G) 


; TYPE 


ey gg CONTENTS 


: SAVE SWR 


EG FOR TYPEQUT 
:3GO TYPE=-OCTAL ASCIICALL DIGITS) 


es ee ee 


SEQ 0182 


ee 


071312 


071450 


eee es oe eC 


04401 072036 
1A 77 ~=107716 
117746 107712 
042716 177600 
021627 000003 
104401 072006 
062706 000006 
123727 001135 
001003 
012777 000100 
000137 002240 
021627 000025 
005 
104401 072013 
706 000006 


000060 
000002 


66 000002 
056616 177776 
000667 
104401 001206 


ee we - - 


ee 2a « 


ee ee we ee oe 


M 
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000001 
107650 


107576 


000001 
107554 


19$: 


7$: 


20S: 


17$: 


18$: 


BR 
TYPE 


BR 
-DSABL LSB 


eC P?, (§P) 
(SP) #3 
»SCNTLC 
SINTAG #1 
#100, 81Ks 


#100, a$TKS 
PC ,STYPEC 
) ,#60 


2(SP) 
-2(SP) ,(SP) 
7$ 


$QUES 
20$ 


; PROMPT FOR NEW SwR 
+¢ CLEAR COUNTER 
— SWR 


1 NOT HERE? 
;1F NOT TRY AGAIN 


;;PICK UP CHAR 
3MAKE IT 7-BIT ASCII 


315 A ee CONTROL ~C? 
EVES ECHO CONTROL-C (*C) 
EAN UP ST 
j7REENABLE TTY KEYBOARD INTERRUPTS? 


; [BRANCH 
;ALLOW TTY ek yee INTERRUPTS 
: S CONTROL~C RESTAR 


Pe IT A CONTROL -U? 

;BRANCH IF NOT 
:IYES, CONTROL-U (*U) 

E PREVIOUS INPUT 
<LET’ S TRY IT AGAIN 
21S Ag A <CR>? 
H IF NO 

ZIYES. i ” Ay FIRST CHAR? 


3 ae <CR> AND <LF 
ante TTY KBD INTERRUPTS? 


F NOT 
: :RE-ENABLE TTY KBD INTERRUPTS 
TURN 


: ;BRANCH IF YES 

* BRANCH IF YES 
::STRIP-OFF ASCII 

:1S THIS THE FIRST CHAR 


T 
"TYPE ?<CR><LF> 
:SIMULATE CONTROL -U 


SARA EEA RARER AREA EEE EAE ARERR ERA RER ARERR ARERR R RARER ERE RS 





ee re ee ee 


SEQ 0183 


r 


LS 


071452 


071540 


071542 


CZRMRBO RMOS/3/2 DU POR TST 1 
TTY INPUT ROUTINE 


000004 
000004 


071476 


070600 
070600 
177070 
070604 
070604 


070606 


071776 
072006 


000177 


000134 
071774 
177777 
071776 


071774 
071774 


000134 
071774 


000025 


A TS | <a ngeenaenname —_—<— 
——— ee ee -—-———_— ~— _— ——— 
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000002 


000004 


070607 


070604 


071774 


071774 


2$: 


RDCHR 
RETURN HERE 


(SP) ,=(SP) 
LSPS, 2(SP) 
“ii 4 


#608, (SP) 


STKCNT 
1$ 


STKCNT 
aS TKOOUT, e4(SP) 


Io f ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


+:GET A CHARACTER FROM THE QUEUE 
" s CHARACTER 1S ON THE STACK 
“WITH PARITY BIT STRIPPED OFF 
: PUSH. DOWN THE PC AND’ 
iiGET READY FOR A CHARACTER 
T NEW PS ON STACK 
«PUT NEW PC ON STACK 
*=POP NEW PC AND PS 
::WAIT ON A CHARACTER 
; ;DECREMENT THE COUNTER 
:;GET ONE CHARACTER 
TE THE POINTER 


: UPDA 
STKQOUT ,ASTKQEND 7 gDID IT GO OFF OF THE END? 
- #STKQSRT, $TKQOUT’ TERESET THE POINTER 
: sRETURN 


'MADASARAALASALALAELESLASLELAR SALSA ESE SEARS ESSA SRR ASA SERRA ALAS SASS SS 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


>*CALL : 


;* 
‘r 
6 

* 


$RDLIN: 


1$: 
23: 
10$: 


6$: 


5$: 


7$: 


RDLIN 
RETURN HERE 


we? -(SP) 
~(SP) 


#STTYIN, R3 
#STTYINGS. ,R3 


4$ 


(SP) +, (R3) 
#177, (R3) 
5$ 


(SP) 
6$ 
#'\,9$ 


#1. (SP) 
R3.ASTTYIN 
4$ 

(R3) ,9$ 

9$ 


(SP) 

7$ 

A*\,9$ 
9$ 


(SP) 
#25, (R35) 
B$ 


:; INPUT A STRING FROM THE TTY 
; ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
7; TERMINATOR WILL BE A BYTE OF ALL O°S 


“CLEAR THE RUBOUT KEY 
:3GET ADDRESS 
FER FULL? 


— FROM THE TTY 
A RUBOUT 


: STACK EMPTY? 


BR IF YES 
ye TO TYPEOQUT THE DELETED CHAR. 


YPE 
:;GO READ ANOTHER CHAR. 
:;RUBOUT KEY SET? 


;;BR IF NO 
3: TYPE A BACK SLASH 


a ge THE RUBOUT KEY 
iTS Ta A CTRL U? 


om ee ee ee ee ee ee ee 


SEQ 0184 


=a 
“tN 
<D 


INPUT ROUTINE 





—— wen eee ee 


MRBO RMO5/3/2 DU POR TST 1 


072013 
000022 
001207 
071776 
001206 
071774 
071774 
000015 


177777 
001210 


000004 
071776 


EE  _--TSS/eesssSSssssssssssessssl ssseses 
-_ 


B 4 
MACRO V04.00 4-APR=-81 18:06:25 PAGE 19-4 


000002 
000004 


TYPE 
BR 

8$ CMPB 
BNE 
CLRB 
TYPE 
TYPE 
BR 

4$ TYPE 
BR 

3$: VB 
TYPE 
CMPB 
BNE 
CLRB 
TYPE 
TST 
MOV 
MOV 

: MOV 

MOV 
RTI 

9$ -BYTE 
-BYTE 

STTYIN: .BL 

SCNTILC: .ASCIZ 

SCNTLU: .ASCIZ 

SCNTLG: .ASCIZ 

SMSWR: .ASCIZ 

SMNEW: .ASCIZ 

EVEN 


$SCNTLU 


#15, (R3)+ 


-1(R3) 
yo! 
(SP) + 
(SP)+,R3 
(SP) ,=(SP) 


4(SP) ,2(SP) 
ASTTYIN,4(SP) 


0 

0 

8. 
/*C/<15><12> 


/*U/<15><12> 
/*G/<15><12> 


<15><12>/SWR = 
/ NEW = / 


;;TYPE_A CONTROL ‘U"’ 
;:GO START OVER 
eT CHARACTER A *"*R''? 

CH _IF NO 
:3 CLEAR THE CHARACTER 

YPE A ‘'CR'' & ‘LF’ 

“ UTYPE THE INPUT STRING 
a et ANOTHER CHACTER 


::CLEAR THE BUFFER AND LOOP 
;sECHO THE CHARACTER 


+s CHECK FOR RETURN 


:iCLEA AN RUBOUT KEY FROM THE STACK 
s ADJUST THE STACK AND PUT ADDRESS OF THE 
t FIRST ASCII CHARACTER ON IT 
RETURN 
17 STORAGE FOR ASCII CHAR. TO TYPE 
;:RESERVE 8 BYTES FOR TTY INPUT 
TROL *'C"’ 


CONTROL ' 
/ ; CONTROL ee ; 


SEQ 0185 


- CZRMRBO RMOS/3/2 DU POR TST 1 
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| READ AN OCTAL NUMBER FROM THE T SEQ 0186 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


nT, ee 


. 2 (ARBRRBRASAARARARRARRRSAARARARARRRR RR RR RE RRRRARRRRRSRR RRR RRR RRA SESE SS | 


> *THIS “wee WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:*CHANGE IT 


TO BINARY. 
:*THE INPUT CHARACTERS WILL BE CHECKED TO —. THEY ARE LEGAL 
CHARACTER IS READ 


:*OCTAL DIGITS. IF AN ILLEGAL 


"'2"" WILL BE TYPED 


:*FOLLOWED BY A CARRIAGE mele? LINE FEED. THE cOMPL ETE 


:*THEN BE RETYPED. THE INPUT 


NUMBER MUST 
S TERMINATED BY TYPING A CARRIAGE RETURN. 


> *CALL 
:* RDOCT ; READ AN OCTAL NUMBER 
:* RETURN HERE 3;LOW ORDER BITS ARE ON TOP OF THE STACK 
:* : HIGH ORDER BITS ARE IN $HIOCT 
072050 011646 S$RDOCT: MOV (SP) ,-(SP) 5 sOROV IPE SPACE FOR THE 
072052 016666 000004 000002 MOV 4(SP) ,2(SP) 3 T NUMBER 
72060 010046 MOV RO,-(SP) 3zPUSH RO ON STACK 
072062 010146 MOV R1,-(SP) : ;PUSH R1 ON STACK 
072064 010246 MOV R2,~(SP) 7;PUSH R2 ON STACK 
72066 104411 1$ RDLIN he AN ASCIZ LINE 
072070 012600 MOV (SP)+,RO +2GET ADDRESS OF 1ST CHARACTER 
072072 010037 072176 MOV RO,5$ ;AND SAVE IT 
072076 005001 CLR R1 «CLEAR DATA WORD 
72100 5002 CLR R2 
072102 112046 23: MOVB (RO) +,-(SP) + PICKUP THIS CHARACTER 
072104 1420 BEQ 3$ +3 ZERO GET OUT 
072106 122716 000060 CMPB #°0O, (SP) MAKE SURE THIS CHARACTER 
072112 003026 BGT 4$ 21S AN OCTAL DIGIT 
072114 122716 000067 CMPB #°7,(SP) 
072120 00242 BLT 4$ 
072122 00630 ASL Ry ii*2 
072124 006102 ROL R2 
072126 00630 ASL R1 77°46 
72130 006102 ROL R2 
072132 00630 ASL R1 72*8 
72134 006102 ROL R2 
72136 042716 177770 BIC #*C7, (SP) :zSTRIP THE ASCII JUNK 
072142 06260 ADD (SP)+,R1 :;ADD IN THIS DIGIT 
072144 000756 BR 2$ sé 
072146 005726 3$: TST (SP) + :; CLEAN TERMINATOR FROM STACK 
072150 010166 000012 MOV R1,12(SP) 7 SAVE THE RESULT 
72154 010237 072206 MOV R2,$HIOCT 
072160 012602 MOV (SP)+,R2 : POP STACK INTO R2 
072162 012601 MOV (SP)+,R1 :POP STACK INTO R1 
072164 012600 MOV (SP)+, “RO $ POP STACK INTO RO 
072166 RTI ;RETURN 
072170 5726 4$: TST (SP)+ =: CLEAN PARTIAL FROM STACK 
072172 105010 LRB (RO) sve LA A TERMINATOR 
072174 104401 TYPE :; TYPE UP THRU THE BAD CHAR. 
072176 5$: . WORD 0 v ee #86 ee y ee 
72200 1046401 001206 TYPE , SQUES og re “Te SUF 
072204 000730 BR 1$ :: TRY AGAIN 
72206 $HIOCT: .WORD 0 ::HIGH ORDER BITS GO HERE 
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| SAVE AND RESTORE RO-R5 ROUTINES 


072210 


072244 


072246 


072500 
072302 


0000 
000022 
000 
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.SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


SF RAAAAAAAARAAAAAAAAAAAAAAAREAAAAAARARAAAANRAHAEREHANAHHHEEARER AEE 


SAVREG 
: UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


:*SAVE RO=R5 
: CALL 
‘ eTOP===(+16) 
* +2-——(+18) 
5% +4-=-R5 
3% +6=—=R4 
p* +8---R3 
;*+10-=-R2 
p8+12---R) 
7*+14=---R0 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 
> *RESTORE RO-R5 
>*CALL: 
.* RESREG 
SRESREG: 
MOV 
MOV 


RO,-(SP) 


R5, 

22(SP) ,=(SP) 
22(SP) ,-(SP) 
22(SP) ,~(SP) 
22(SP) ,- (SP) 


(SP)+,22(SP) 
(SP) +,22(SP) 
(SP) +,22(SP) 
(SP)+,22(SP) 
(SP)+, “RS 
(SP) +,R4 
(SP) +, RS 
(SP)+, 
(SP)+_R1 
(SP)+,RO 


:zPUSH RO ON STACK 
: PUSH R1 ON STACK 


; 3PUSH R4 ON STACK 
SH RS ON STACK 

;: SAVE PS OF MAIN FLOW 

MAIN FLOW 


se. OF 
:zSAVE PS OF CALL 
$3 OF CALL 


7 RESTORE PC OF CALL 
: ;RESTORE PS OF CALL 
7 RESTORE PC OF MAIN FLOW 


;;POP STACK INTO R1 
;:POP STACK INTO RO 


LLL ELL AO A A tk Ni A 


SEQ 0187 


A A CC - - 
f —_ ELL LAL LL LCE LS OOO CL LL COC LO CL CE CC NE tl CC CE A A CL GR AN LR RS 
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SEQ 0785 


Se Rn RS 


_ TRAP DECODER 


.SBTTL 


TRAP DECODER 


'WEheRRASASRASRSASASRSLALAARAASRAARRARARARARRARR RRS RR RRR RRR RRR RR SRR ASRS SS SE SB 


:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 


;*AND USE IT [0 INDEX 


THROUGH THE TRAP TABLE 


FOR THE STARTING ADDRESS 


:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


072304 010046 $TRAP: MOV RO,-(SP) ;; SAVE RO 

072 016600 000002 MOV 2(5P), RO +iGET TRAP ADDRESS 
0723512 005740 TST (RO) KUP BY 2 

072314 111000 MOVB (RO). RO ;#GET RIGHT BYTE OF TRAP 
072316 006300 ASL sPOSITION FOR INDEXING 
072320 016000 072340 MOV STRPAD (RO) ,RO : ZINDEX TO TABLE 

072324 000200 RTS RO ;:G0 TO ROUTINE 


:; THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


C72326 011646 $TRAP2: MOV (SP) ,- (SP) :;MOVE THE PC DOWN 

072330 016666 000004 000002 MOV 4(SP) ,2¢SP) :zMOVE THE PSW DOWN 

072336 000002 RT] ;ZRESTORE THE PSW 
-SBTTL TRAP TABLE 


>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>*BY THE ‘'TRAP’' INSTRUCTION. 


; ROUT INE 
072340 072326 $TRPAD: .WORD S$TRAP2 
072342 067634 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
072344 070152 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
072346 070126 STYPOS ;;CALL=TYPOS TRAP+3(1044035) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
072350 070166 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
072352 070354 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
072354 071200 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
072356 071110 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SwR 
072360 071452 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
C72362 071542 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
072364 072050 SRDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
072366 072210 S$SAVREG ;: CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 
072370 072246 SRESREG ::CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 


ecient 
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TELETYPE MESSAGES 
| 
.SBTTL TELETYPE MESSAGES 


é 
3 072372 200 105 


116 ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 
4 072421 040 077 111 ADRERR: .ASCIZ / ?INVALID ADDRESS/<CRLF> 
5 072644 200 120 117 PORTAIS: .ASCIZ <CRLF>/PORT ‘A* ADDRESS IS: / 
6 072473 200 1 117 PORTBIS: .ASCIZ <CRLF>/PORT ‘B' ADDRESS IS: 
| 7 072522 200 6 117 NOCLOCK: .ASCIZ <CRLF>/NO gi th a L' OR ‘P' +LOCK/<CRLF><LF> 
8 072560 012 105 116 TESTNO: .ASCIZ Aone TEST / 
9 072600 040 077 111 DNO: .ASCIZ / ?INVALID TEST NUMBER/<CRLF> 
10 072627 040 105 122 TSTERR SCIZ / ERRORS/<CRLF> 
11 072640 200 012 122 ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS (RMCS1) IS: @ 
12 072675 012 105 116 NTRH: ASCIZ <LF>@ENTER RH/RM ADDRESS: @ 


ee ee 


SEQ 0189 
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TEST ERROR MESSAGES SEQ 0190 


] .SBTTL TEST ERROR MESSAGES 
3 072724 127 122 117, EMI: .ASCIZ /WRONG DRIVE TYPE/ 
4 072765 104 122 111 EM: .ASCIZ /DRIVE NOT ON LINE/ 
5S 072767 123 105 122 EM3: .ASCIZ /SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 
5 073051 104 122 111 EMA: .ASCIZ /DRIVE NOT SEIZED BY PORT/ 
7 073102 127 122 117, EMS: .ASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
8 073150 122 105 107 EMé: -ASCIZ /REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED/ 
| 9 073250 122 105 107, EM?: .ASC1Z. /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
| 10 073331 12e 105 107 +€—M10: ASCIZ /REGISTER CONTENTS WRONG/ 
| 11 073361 103 117 116 EM11: ASCIZ /CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
| 12 673445 104 122 111. ~EM12: ASCIZ /DRIVE NOT SEIZED BY DRIVE CLEAR C 
| 13 073515 122 105 101 EM13: ASCIZ /READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
14 073602 126 117 114 EM14: ASCIZ /VOLUME VALID SET ON THE WRONG PORT/ 
| 15 073645 101 124 124 EM15: ASC1Z /ATIN BIT WRONG AFTER TIMEOUT - REQUEST NOT jSEV/ 
16 073724 101 124 124 EM16: ASCIZ /ATTN BIT WRONG AFTER RELEASE - REQUEST SET/ 
17 073777 101 124 124 EM17: .ASCIZ /A WRONG AFTER RELEASE - REQUEST NOT SET/ 
18 074056 104 122 111. ~EM20: ASCIZ /DRIVE NOT SEIZED WHEN ATTN BIT F T CLEARED/ 
19 074136 104 122 117 EM21: ASCIZ /DRIVE SEIZED WHEN ZERO WRITTEN IN ATIN BIT/ 
20 674211 104 122 111 EM22:  .ASCIZ /DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 
21 074276 124 111 115 EM23: ASCIZ /TIMEOUT CLEARED THE DRIVE'S ERROR BIT/ 
22 074344 122 105 114 EM24:  .ASCIZ /RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 
23 074423 124 111 115 EM25:  .ASCIZ /TIMEOUT ONE-SHOT DID NOT RETRIGGER/ 
24 074466 104 122 111 EM26:  .ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 
25 074553 122 105 107 EM27: ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
26 074631 104 122 111 €M30:  .ASCIZ /DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL / 
27 074726 104 122 111 EM31: .ASCIZ /oRI ve IN NEUTRAL AFTER RELEASE - REQUEST SET/ 
28 075003 101 124 124 EM32: .ASCIZ N BIT WRONG AFTER RECALIBRATE COMMAND/ 
29 075054 104 122 111 EM33: .ASCIZ /DRIVE RE TURNED 10 NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 
075156 104 122 111 EM34: .ASCIZ /DRIVE RETURNED TO NEUTRAL IF MASSBUS INIT GIVEN WHILE DRIVE SEIZED/ 
31 075261 124 111 115 €M35:  .ASCIZ /TIMEOQUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/ 
32 075340 124 111 115 EM36:  .ASCIZ /TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 
33 075412 104 122 111 £€M37:  .ASCIZ /DRIVE IS NON-EXISTENT (‘NED BIT SET) 
075460 101 124 124 £—M40: .ASCIZ /ATIN BIT FOR T BY mAsSBUS CLEAR/ 
35 075535 124 111 115 €M41:  .ASCIZ /TIMEOUT CLEARED THE ATTENTION BIT/ 
75577 104 122 111 EM42: .ASCIZ /DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATIN BIT WRITTEN/ 
37 075665 104 122 111 €M43: .ASCIZ I TRAL AFTER ATTENTION BIT WRITTEN/ 
38 075742 127 122 111 EM44: .ASCIZ /WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 
39 076017 120 117 122 £—M45: .ASCIZ SELECT SWITCH DRIVE, NOT IN ‘A/B‘a 
40 076071 103 101 116 EM46: .ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 
41 076140 101 124 124 £M47:  .ASCIZ /ATIN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/ 
42 076226 101 124 124 EMSO: .ASCIZ /ATIN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/ 
43 076310 107 - 124 1246 £M51:  .ASCIZ /ATIN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 
44 076377 124 110 105 €M52: .ASCIZ /THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST e "ERR" SET/ 
45 0764 103 101 116 EMS3:  .ASCIZ /CAN'T READ THE ATTN BIT FROM THE ‘OPPOSITE’ PORT/ 
46 076553 122 105 114 EMS5S4: .ASCIZ /RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 
47 07 124 111 115 EMS5:  .ASCIZ /TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 
48 076713 122 110 057 EM56: .ASCIZ /RM DIDN'T RESPOND TO ADDRESS INGA 
49 076756 120 117 122 €M57:  .ASCIZ /PORT REQUEST FLOP(S) WRONG STATE/ 
50 077017 101 124 1246 EM60:  .ASCIZ /ATTENTION NOT RESET BY WRI RMAS / 
51 97706 101 124 124 EM61:  .ASCIZ /ATTENTION NOT RESET BY GO/ 
52 077115 101 124 124 EM62: .ASCIZ /ATTENTION RESET BY GO WHEN NOT SEIZED/ 
53 077163 104 122 111 EM63:  .ASCIZ /DRIVE SEIZED BY UNIT READY CHANGE/ 
54 077225 101 124 124 EM64: .ASCIZ /ATTENTION NOT SET BY UNIT READY CHANGE/ 
| 55 077274 126 117 114 —M65:  .ASCIZ /VOLUME VALID NOT RESET BY UNIT READY/ 
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TEST # ERR PC PORT # REG .% CONTENTS/ 
TEST # ERR PC REG ADR PORT PORT B/ 
/ SEIZE ERROR/<CRS<LF> 
/TEST # ERR PC PORT # PORT # REG ADR GOOD BAD / 
/TEST # ERR PC PORT @ ADR BAD / 
RELSNG ERROR/<CR><LF> 
/TEST # ERR PC PORT @ T #4 REG ADR GOOD BAD/ 
/TEST # ERR PC PORT #4 REG ADR CONTENTS/ 
SEIZE ERROR/<CR><LF> 
/TEST # ERR PC PORT #4 PORT #4 REG ADR CONTENTS/ 
Ha ae SEIZE/<CR><LF> 
/TEST # ERR PC PORT PORT #/ 
SEIZE /<CRO<LF> 
/TEST # ERR PC PORT # REG +S CONTENTS/ 
REL SNG/<CR><LF 
/TEST # ERR PC PORT &/ 
RELSNG ROQSTNG/<CR><LF> 
/TEST # ERR PC PORT # PORT &/ 
/TEST # ERR PC PORT @/ 
/TEST # ERR PC/ 
RELSNG ERROR/<CR><LF> 
/TEST # ERR PC T # PORT #/ 
PORT A PORT B/<CR><LF> 
/TEST # ERR PC RMDS RMDS/ 
/TEST # ERR PC PORT # TIMEOUT VALUE (IN MS)/ 


/$RMADR/ 
/TEST # ERR PC PORT A PORT B/ 
/ EXPCTD RECEVD EXPECTD RECEVD/ 


TSTNUM, SERRPC ,PTNBR, SBDADR, SBDDAT 0 
TSTNUM. SERRPC SBDADR, $GDDAT , SBDDAT 0 
RREC. PTNBR, -$BDADR. -$GDDAT. . $BDDAT.O 


, SBDADR, SBDDAT 0 


TS TNUM, SE , P 
TSTNUM, . ° 
TSTNUM, 


SERRPC, 
TSTNUM.. SERRPC .$TMP2, STMP3. 0 
TSTNUM..S$ERRPC .OPPRT .SE! 
TSTNUM, SERRPC..SEIZPT, TIME. Jy 


R,0 
TSTNUM,SERRPC, STMPO, STMP1 , STMP2, STMP3.,0 


SS si S&$ 8 & & 


OOOCOOooO 


SEQ 0191 
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-SBTTL CONSTANTS, TABLES, ETC 

; TABLE OF TEST STARTING ADDRESSES 

TSTADR: .WORD 
RD 


;ATTENTION BIT TABLE 
ATABIT: .BYTE 
BYTE 


MAXTN: 
END 


TST1 ; STARTING ADDRESS OF TEST 
TST2 ; STARTING ADDRESS OF TEST 
TSI3 ; STARTING ADDRESS OF TES7 
TST4 ; STARTING ADDRESS OF TEST 
TST5 ; STARTING ADDRESS OF TEST 
TS76 ; STARTING ADDRESS OF TEST 
TST? ; STARTING ADDRESS OF TEST 
TST10 ; STARTING ADDRESS OF TEST 
TST11 ; STARTING ADDRESS EST 
TST12 ; STARTING ADDRESS OF TEST 
TST13 : STARTING ADDRESS OF TEST 
TST14 ; STARTING ADDRESS OF TEST 
TST15 ; STARTING ADDRESS OF TEST 
TST16 ;STARTING ADDRESS OF TEST 
TST17 STARTING ADDRESS OF TEST 
TST20 ; STARTING ADDRESS OF TEST 
TST21 STARTING ADDRESS OF TEST 
TST22 ; STARTING ADDRESS OF TEST 
TST25 7 STARTING ADDRESS OF TEST 
TST24 ; STARTING ADDRESS OF TEST 
TST25 ; STARTING ADDRESS OF TEST 
TST26 STARTING ADDRESS OF TEST 
TST27 ; STARTING ADDRESS OF TEST 
TST3O ; STARTING ADDRESS OF TEST 
TST31 : STARTING ADDRESS OF TEST 
TST32 ; STARTING ADDRESS OF TEST 
TST33 : STARTING ADDRESS OF TEST 
TST34 STARTING ADDRESS OF TEST 
TST35 :STARTING ADDRESS OF TEST 
; STARTING ADDRESS OF TEST 
TST37 > STARTING ADDRESS OF TEST 
TST40 STARTING ADDRESS OF TEST 
TST41 STARTING ADDRESS OF TEST 
TS142 : STARTING ADDRESS OF TEST 
TST43 : STARTING ADDRESS OF TEST 
TST44 : STARTING ADDRESS OF TEST 
TS1T45 ;STARTING ADDRESS OF TEST 
TS746 ; STARTING ADDRESS OF TEST 
1 ;ATTENTION BIT FOR DRIVE 
2 sATTENTION BIT FOR DRIVE 
4 sATTENTION BIT FOR DRIVE 
10 sATTENTION BIT FOR DRIVE 
20 sATTENTION BIT FOR DRIVE 
ATTENTION BIT FOR DRIVE 
100 sATTENTION BIT FOR DRIVE 
00 ATTENTION BIT FOR DRIVE 
52 ;MAXIMUM TEST NUMBER 
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SYMBOL TABLE 


SEQ 0194 
| ADDRIS 072640 CR = 000015 DT42 101430 EM56 076713 OPE = 020000 
_ ADRERR 072421 CRLF = 000200 DT46 101436 EMS7 076756 OPI = 020000 
, AOE = 001000 DCK = 100000 DT5 101260 EM6 073150 OPPRT 001244 
ASR1 001236 DDISP = 177570 DT54 107450 EM60 077017 OR = 000200 
ATA 100000 DF1 101516 DT55 101462 EM61 077063 PAR = 000010 
ATABIT 101672 DF 31 101540 DT56 101474 EM6 077115 PAT = 000020 
ATO = 000001 DF 36 101544 DT57 101500 EM6 07716 PFECH 067472 
AT1 = 000002 DF42 101547 DT6 101276 EM64 077225 PFECH1 067502 
AT2 = 000004 DF5 101523 DT7 101312 EM65 077274 PFECH2 067564 
ATS = 000010 DF55 101551 DVA = 004000 EM7 073250 PFECHS 067616 
ATS = 000020 DF 56 101555 DvC = 000200 ENTERA 072372 PFECH4 7626 
ATS = 0 DF7 101531 ECH = 000100 ERR = 040000 PFTSTIN 067632 
AT6é = 000100 DH1 077341 CI = 004000 ERROR = 104000 PGE = 002000 
AT? = 000200 DH11 100003 EMTVEC= 00003 ERRVEC= 000004 PGM = 001000 
Al6 = 00 DH13 100054 M1 072724 EXEC 003074 PIP = 020000 
A17 = 001000 DH22 100174 EM10 0733351 FE = 000020 PIRQ = 177772 
BADNO 072600 DH2e3 100272 EM11 073361 FMT16 = 010000 PIRQVE= 000240 
BADTMO 002160 DH26 100372 EM12 073445 FO = 000002 TA 001224 
BAI = 000010 DH3 077412 EM13 073515 FI = 000004 PORTAI 072444 
BITO = 1 DH31 100451 EM14 073602 Fe = 000010 PORTB 001226 
BITOO = 000001 DH36 100550 EM15 07364 F3 = 000020 PORTBI 072473 
BITO1 = 000002 DH4 077461 EM16 073724 F4 = 000040 PORTC 001230 
BITO2 = DH42 100577 EM17 073777 = 0 1 PRO = 
BITOS = 000010 DH44 100616 EM2 072745 GTSWR = 104406 PRI = 0 
BITO4 = 000020 DH46 100714 EM20 074056 CE = 000200 PR2 = 000100 
BITOS = 000040 DH5 077604 EM21 0741 HCI = 002000 PRS = 000140 , 
BIT06 = 000100 DH55 101011 EM22 074211 HCRC = 00 PR4 = 000200 
BITO7 = 000200 DH56 101067 EM23 074276 T = 000011 PRS = 000240 
BITO8 = 000400 DH57 101076 EM24 074344 IAE = 002000 PR6 = 600300 
BITO9 = 001000 DH7 077660 EM25 074423 IBSAVE 067272 PR7 = 000340 
BIT? = 000002 DISPLA 001142 EM26 074466 IE = 000100 PS = 177776 
BIT10 = 002000 DISPRE 000174 EM27 074553 ILF = 1 PSEL = 002000 
BIT11 = 004000 DLT = 100000 EMS 072767 R = 000002 PSW = 177776 
BIT12 = 010000 DMD = 000001 EM350 074 IOTVEC= 000020 PTNBR 001240 
BIT13 = 020000 DPE = 000010 EM31 074726 I = 000100 PWRVEC= 000024 
BIT14 = 040000 DPR = 000400 EM32 075 = 010000 RDCHR = 104410 
BIT15 = 100000 DRQ = 004000 EM33 075054 KYBCTL 001300 RDLIN = 104411 
BIT2 = 000004 DRY = 000200 EM34 075156 BC = 00 RDOCT = 104412 
BITS = 000010 DSWR = 177570 EMS55 075261 LBT = 002000 RDY = 000200 
BIT4 = 000020 DTE = 010000 EM36 075340 LF = 000012 RELERR 001254 
BITS = 0 DTOO = 000001 EM37 075412 is. ® LOK = 000061 
BIT6 = 000100 DTO1 = 000002 EM4 073051 MAXTN 101702 RESREG= 104414 
BIT7 = 200 DTO02 = 000004 EM40 75450 MCPE = 020000 RESVEC= 000010 
BIT8 = 000400 DTO0S = 000010 EM41 075535 MDPE = 000400 RMAS = 000016 
BITS = 001000 DT04 = 000020 EM42 075577 = 020000 RMBA = 
BPTVEC= 14 DTOS = 000040 EM45 075665 MOL = 010000 RMCS1 = 
C 003246 DT96 = 000100 EM44 075742 = 001000 RMCS2 = 000010 
CHGADR 001302 DTO7 = 000200 EM45 07601 MXF = 001000 RMDA = 
CKCLK 0661350 DTO8 = 000400 EM46 076071 NBA = 100000 RMDB = 000022 
CKCLKT DT1 101230 EM47 076140 NED = 910000 RMDC = 000034 
CKCLK2 066242 DT13 101332 EMS 073102 = 004000 RMDS = 000012 
CKCLKS 066252 DT22 10 EM50 076226 NOATA = 000001 RMDT = 000026 
CKERR 001250 D125 10136 EM51 076510 NOCLOC 072522 RMEC? = 000044 
CKSWR = 104407 DT3 101244 EMS2 076377 NOSEIZ 1252 RMEC2 = 000046 
CLOCK 262 DT31 101376 EM55 076472 NTRH 072675 RMER1 = 000014 
CLR = 000040 DT 36 101410 EM54 076555 OFD = 900200 RMER2 = 000042 
CPSAVE 067270 DT37 101420 EM55 076646 OM = 000001 RMLA = 000020 
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SYMBOL SEQ 0195 
RMMIR = 000024 TBITVE= 000014 TSTADR 101556 U3 = - 000004 SLPERR 001110 
RMMR2 = TESTNO 072560 TSTERR 072627 Ww _ = 000100 SLPVEC 001216 
RMOF = 090032 TEST] 003432 TSINUM 001.246 VVSET = 000001 SMNEW 072036 
RMR = TESTIO 013324 TST1 003374 WATCH 001260 SMSWR 072025 
RMSN = §00036 TEST11 014570 TSTIAA 003356 WCE = 040000 SMXCNT 066716 
RMwC = 000002 TEST12 016034 TST10 013266 WCF = 000040 $NULL_ 001154 
RQA = 1 TEST13 017154 TST11 014532 WLE = 004000 SNWTST= 
ROB = TEST14 020274 S112 013776 = 004000 SOCNT 070350 
ROSTA ~ 001232 TEST15 021674 TST13. 017116 $AUTOB 001134 E 070352 
ROSTB _ 001234 TEST16 023274 TST14 020236 ADR 001122 SOVER 

= TEST17 024220 TST15 021636 SBDDAT 001126 SPASS 001100 
R?7 __ =%000007 TEST2 005004 TST16 023236 L 1202 SQUE 06 
SAVREG= 104415 TEST20 025144 TST17 =: 024162 HARC 070122 SRDCHR 071452 
SC = 100000 TEST21 026212 TST2 004746 071110 SRDLIN 071542 
SCOPE = TEST22 027260 TST20 025106 SCMTAG 001100 72050 
SCO = 000100 TEST23 031334 TST21 026154 : 1 SRDSZ = 0 
scl = 000 TEST24 032060 TST22 027222 $CM2 = 000002 $REGAD 
SC2 = 0004 TEST25 033254 TST23 031276 $CM3. = 000001 $REGO 001162 
SC3 = 001000 TEST26 034 TST24 032022 $CM4 = 000005 SRESRE 072246 
SC4 = 602000 TEST27 036144 TST25 033216 SCNTLC 072006 SRMADR 
SEIZPT 001242 TESTS 006352 TST26 034412 SCNTLG 072020 SRMVEC 
SKI = 100000 TEST30 037640 TST2? 036106 SCNTLU 072013 SRTNAD 
STACK = 001100 TEST31 TST3 314 SCRLF 001 $ 072210 
START 002240 TEST32 043030 1ST30 037602 $DBLK 070570 $SCOPE 
START1 002246 TEST33 TST31 041276 SDOAGN SSETUP= 000127 
START2 002254 TEST34 045432 TST32 042772 $DTBL 070560 $STUP = 1 
STKLMT= 177774 TEST35 046330 TST33 044250 NDAD 066 SSVLAD 066672 
STOP 066720 TEST36 047226 TST34 374 SENDCT 065746 $SVPC = 000210 
SwWR 001140 TEST37 050224 TST35 046272 SENULL 2 = 
SWREG 000176 TEST4 007720 ST36 047170 SE 5702 SSWRMK= 
swO = TEST40 051222 TST37 050166 SEOPCT 065740 STIMES 001176 
swOO = 000001 TEST41 06 TST4 007662 SERFLG 001103 5 001146 
SwO1 = 000002 TEST42 955172 TST40 051164 $E 001115 $TKCNT 07 
sw02 = TEST43 j TST41 053150 $E 74 STKINT 970610 
swO3 = 000010 TEST44 057722 TST42 055134 SERRPC 001116 STKQEN= 070607 
Sw04 = 000020 TEST45 2 TST43 056410 SERRTB 00131 $TKQIN 070602 
swOS = TEST46 061402 TST44 057664 $e 067274 $TKQOU 07 
SWO6 = 000100 TEST47 66 TST45 060514 SERTTL 0011172 STKQSR 070606 
SwO7 = 000200 TESTS 011050 TST46 061344 SESCAP 001200 $TKS 001144 
SWwO8 = TESTSO 063152 TST47 062230 S$FILLC 001156 STKSRV 0 
SwO9 = 001000 TEST51 44 TSTS 0110 SFILLS 001155 STMPO 001164 
SWI = TEST6 TST50 06311 $GDADR 001120 STMP1 001166 
Swi0 = 002000 TEST? 012652 TST50B 064164 $GDDAT 001124 $TMP2 001170 
SWwil = TIME TST51 064406 $GET42 066100 STMP3 001172 
SWi2 = 010000 TIMEA 001262 TST51B 065456 $GTSWR 071200 STMP4 001174 
Swi3 = TIMEAM 001266 065700 $GT42P 066074 SIN. = z 
SW14 = 040000 TIMEAP 001264 TST6 012142 $HD = 000000 STPB 1152 
Sw15 = 100000 TIMEB 001270 TST? 012614 $HIOCT 072206 $TPFLG 001157 
SWw2 = TIMEBM 001274 TYPDS = 104405 SICNT 001104 TPS 001150 
SW3 = 000010 TIMEBP 001272 TYPE = 104401 SINTAG 001135 $TRAP_ 072 
Sw4 = 000020 TIMES 001276 TYPOC = 104402 SITEMB 001114 $TRAP2 072326 
SWS = TKVEC = TYPON = 104404 $LF 001210 $TRP = 
Sw6 = 000100 TOLER 066324 TYPOS = 104403 $LKCSB 001214 $TRPAD 072340 
SW7 = TPVEC = 000064 UNS = 040000 $LKCSR 001212 S$TSTNM 001 
Sw8 = 000400 TRAPVE= 000034 UPE = 020000 $LKS 001220 $TTYIN 071776 
sw9 = 001000 TRE = 040000 U0 = 000001 SLLVEC 001222 $TYPDS 070354 
TAP = 040000 TRIVEC= 000014 UT = 000002 $LPADR 001106 $TYPE 067 
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SYMBOL TABLE 


STYPEC 070004 $TYPOC 070152 $TYPOS 070126 $XON = 000021 
STYPEX 970124 $TYPON 070166 $XOFF = 000023 $XTSTR 066406 
. ABS. 101704 000 

000000 001 


ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 61952 - x e 242 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
CZ7RMRB.BIN, CZRMRB/C=CZRMRB.DOC,CZRMRB,SYSMAC/M 


$$GET4= 000000 
SOFILL 070351 


SEQ 0196 
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CROSS REFERENCE TABLE (CREF vOQ1-05 ) SEQ 0197 
SSGET4 11-1 11-14 
SOFILL 17-1 17-14 17-1* 17-1* 
$40CAT 13-1 14-1 
SAUTOB 86-04 9=-29* 19-1 19=1 19=1 
$BDADR 6-04 10-33* 10-33* 10-33% 10-33" 10-40* 10-40% 10-40% 10-40% 10-48% 10-48% 10-48* 10-48* 10-48% 
10-48 10-48% 10-48% 10-1517* 10-157* 10-157* 10-151* 10-151" 10-151* 10-151* 10-151" 10-151* 10-151* 10-151* 
10-151* 10-151* 10-151*% 10-151* 10-151% 10-151" 10-151* 10=151* 10-151* 10-151* 10-151* 10-151* 10-151* 10-151* 
10-151* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173" 10-173" 10-173* 10-173* 10-173* 10-173* 
10-173* 10-173* 10-173* 10-173* 10-173* 10-173" 10-173* 10-173* 10-173* 10-173* 10-173* 10-173" 10-173* 10-223* 
10-223* 10-223* 10-223 10-223% 10-223* 10-225* 10=223* 10-241* 10-241% 10=241* 10-241" 10-261* 10-241* 10-241*, 
10-241* 10-268* 10-268* 10-281* 10-281* 10=327* 10-327* 10-527* 10-327* 10-327" 10-327* 10-3527* 10-327* 10-327* 
10-327* 10-350* 10-350* 10-350* 10-550* 10-350* 10-350* 10-350* 10-350* 10-350* 10-350* 10-407* 10-407* 10-407* 
10=407* 10-407* 10-407* 10-407* 10-407" 10-431% 10-431% 10-431* 10-4351* 10-431*% 10-431* 10-4351* 10-431* 10-483* 
10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-4835* 10-483* 10-483* 10-483* 10-506* 10-506* 10~-506* 
10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-531* 10-531* 10-531* 10-531* 10-547* 
10=547* 10-547* 10-547* 10-583* 10-583* 10-583* 10-583* 10-583* 10-583* 10-603* 10-603* 10-603* 1 3* 10-603*' 
3x 10-675* 10-675" 10-675* 10-675* 10-675* 10-675* 10-675" 10-675" 10-675* 10-675" 10-675* 10-675* 10-705* 
10-705* 10-756* 10-756* 10-756% 10-756* 10-756* 10-756* 10-756* 10-756* 10-779* 10-779* 10-779* 1 10-779* 
10-779* 10-779* 10-779% 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-8357* 10-837* 10-837* 10-837* 10-837*« 
10-837* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-9 
10-914* 10-914* 10-914* 10-914* 10-914% 10-914% 10-914% 10-914% 10-914* 10-914* 10-914* 10-937* 10-937" 10-937 
10-937* 10-937* 10-937* 10-937* 10-9357* 10-937* 10-937* 10-937* 10-937* 10-989* 10-989 10-989* 1 
10-989* 10-989* 10-989* 10-989* 10-989% 10-:53* 10=-:53* 10=:535* 10=:53* 10-:53* 10-:53* 10-:535* 10-:53* 10-;03 
10-;03* 10-;03* 10-;03* 10-;20* 10-;20* 10-;20* 10-;20* 10-;69* 10-;69* 10-;69* 10-:69* 10-:69* 10-:69* 10-;89« 
10-;89* 10-;89* 10-;89% 10-;89* 10-;89% 10-<84* 10-<84* 10-<84* 10-<84* 10-<84* 10-<84* * 10-<84* 1 
10-<84* 10-<84* 10-<84* 10-<84* 10-<84* 10-<84* 10-<84* 10-=09% 10-=09* 10-=09* 10-=09* 10-=09* 10-=09* 10-=09* 
10-=09* 10-=09* 10-=09* 10-=09* 10-=09% 10-=09* 10-=09* 10-=09* 10-=09* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 
10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10-=99% 10-=99% 10-=99* 10-=99% 10-=99* 10-=99* 10-=99* 10-=99« = 
10-=99* 10->53* 10->53* 10->73* 10->73* 10-741*% 10-241* 10-741*% 10-241* 10-2763* 10-7635* 10-?63* 10-?63* 10-250 
10-830* 10-a30* 10-a350* 10-a31* 10-a31* 10-831* 10-a31* 10-a51* 10-a351* 10-a51* 10-a351* 10-a60« 1 , 
a es" 10-a61* 10-a@61* 10-a861* 10-@61* 10-a61* 10-a861* 10-a61* 25-32 25-33 25-34 25-35 25-36 | 
SBDDAT 6-04 10-33 10-33 10-33 10-33 10-33* 10-33* 10-40 10-40 10-40 10-40 10-40 10-40 10-40 | 
10-40* 10-48 10-48 10-48 10-48 10-48 10-48 10-48 0-48 *  10-48* * 10-48* 10-55* | 
10-151 10-151 10-151 10-151 =10-157* 10-151* 10-151* 10-151* 10-151* 10-151* 10-151* 10-151* 10-151 
10-151* 10-151* 10-151* 10-151*% 10-151* 10-151* 10-151* 10-151* 10-151* 10-151* 10-151* 10-173 10-1735 10-173 
10-173 = 10-173* =10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-173* 10-1735* 10-173* 10-173 
10-173* 10-173* 10-173* 10-173* 10-173* 10-1735* 10-173* 10-223 10-225 0-223 10-223 10-223 10-223 10-225 
10-223 = 10-223* 10-223* 10-223* 10-223* 10-223 10-223* 10-223* 10-223* 10-223* 10-241 10-241 10-241 10-241 
10-241 10-241 10-241 10-241 10-241*% 10-261% 10-241*% .10-241* 10-241* 10-241* 10-241* 10-241* 10-241* 10-268 
10-268 10-268* 10-268* 10-268* 10-268* 10-268* 10-268* 10-281 10-28 10-281* 10-281* 10-281* 10-281* 10-281 
10-281* 10-327 10-327 10-327 10-327 10-327 10-327 10-327 10-327* 10-327* 10-327* 10-327* 10-327* 7 
10-327* 10-327* 10-327* 10-327* 10-327* 10-327* 10-327* 10-350 10-350 10-350 10-350 10-350 10-350 
10-350* 10-350* 10-350* 10-350* 10-350" 10-350* 10-350* 10-350* 10-350* 10-350* 10-350* 10-350* 10-350* 10-407 
10-407 10-407 10-407 10-407 10-407 10-407 10-407* 10-407* 10-407* 10-407* 10-407* 10-407* 10-407* 10-407 
10-431 = 10-431 10-431) 10-431) 10-431 10-431) = 10-431*% 10-431*% 10-421* 10-431* 10-431* 10-431* 10-431* 10-431 
10-431* 10-483 10-483 10-483 10-483 10-483 10-483 10-483 10-483 10-483 10-483 10-483 
10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-506 10-506 
10-5 10-506 10-506 10-506 10-506 10-506 10-506 10-506 10-506 10-S06* 10-506* 10-506* 
10-506* 10-506* 10-506* 10-506* 10-506* 19-06» 10-506* 10-506* 10-506* 10-531 10-531 10-531 10-5351 10-531 
10-531* 10-531" 10-531* 10-531* 10-531* 10-531" 10-531* 10-531* 10-547 10-547 10-547 10-547 10-547* 10-547 
10-547* 10-547* 10-547* 10-547* 10-547" 10-547* 10-547* 10-583 10-583 10-583 10-583 10-583 10-583 10-583 
10-583* 10-583* 10-583* 10-583* 10-583* 10-583* 10-583* 10-583* 10-583* 10-603 10-603 10-605 10-605 
1 10-603* 10-603* 10-603* 10-603* 10-603* 10-603* 10-603* 10-603* 10-603* 10-603* 10-675 10-675 10-675 
10-675 10-675 10-675 10-675 10-675 10-675 10-675 10-675* 10-675* 10-675* 10-675* 10-675* 
10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675» 


10-675* 10-675 
10-675* 10-675* 10-705 10-705 i0-7054 





53 
53% 
20* 
69* 
89* 
84 
10-<84* 
10=-=09 | 
=09* 
=09* 
=81* 
=99 
« 
10-263« 
10-a31* 
10-261 
6-04 
25-37 | 


SEQ 0198 
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10-779* 
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10-937 
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CROSS REFERENCE TABLE (CREF Vv01-05 ) 
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=81* 
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20-1 


10=256* 
10=726* 
10==29* 


10-40* 10-40* 
10-53* 10-56 
10-173 10-173* 
10-223* 10-223* 
} a 10-268 
10=327* 10-327 
10-350* 10-350« 
10-431 10-431 
10-483 10-483 
10-506 10-506 
10-506* 10-506* 
10-547 10-547 
10-583* 10-583« 
3* 10-603* 
75* 10-675* 
10-756* 10-756* 
779* 10-837 
10-837* 10-837* 
10-859 10-859 
10-914 10-914 
10-914* 10-914* 
10-937* 10-937* 
10-989 10-989 
10-:53 10-:53 
10-:20  10-:20 
10-;89 10-:89 
19-<B4 10-<84 
10-<84* 10-<84* 
10-=09 i10-=09* 
10-=09* 10-=81 
10-=81* 10-=99 
10-=99 10->53 
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10-348* 
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10=>71* 


10-372* 
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10=>96* 


SEQ 0204 
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SEQ 0206 


' CZRMRBO RMOS/3/2 DU POR TST 1 


St mdod DPereenGaReOd MERORORERMERRDE anc eDREeTEReEee 
won. = 
RERCSORS SEOFROR ERS eT Tat RRGhOSE ROVERS, PR RaR DGS R TTY TT 
bb4h4Sdd $99555SSSSSS99S SOSSSSSSSSSSSSS SoooSsoooosooes 
« x * x * xs « * SMR MORK MOgem RMR MM OROSRMa toe 
RARSSSES NERO AMMow SNM NBA TOAMMODODR COI 6 OIA MA LF = BALA 0.0 & G0 
TETTILAL Lat baSoodddaad gddadaddadddddd JSLTsTeeTi Liss 
Sonmotet madonvatnmegsine modorusinmastne shtihmStosime soe 
RES SS RS ONES S MRO O TAD ASMSRSLOR UPA D PNSBRO DBE eT 
Tata GAS Raab GdrSSaSSaSSS SddgdddagdELESS LETLesTs esses ss 
x * x * * # a * “ * " * eee id ee 
PERARSacSPERUTESERSSSGRS REPBSASRUSSERS eNSRSRDetnesEte 
ROA & aV NO BRK NMI tate 1 t 7 ‘ t Y oy Ee 
’ U ' 
$444444444444454558454555 SoSoSOSoSSSOSSS SOSSSSSSSS5S505 
eeeee © 2 « e nee = * “ « “ee # ® 5 oe OFS 
RRERRSHS BE SRARSSMAU SSA S TeRyaPeee TT aS ee trees Sea 
BROW ss eV UO: Oe . oe 
rritetrered i 1 1 
b53555SdS8SSSSSSSSSSS9SS SSSSSSSSSSSSSSS SOSSSSSSSSSSSOS 
sxe «& * =* e* * #2 = * oe # 28 eu eu ex eee enn « 
Omaoo MOAR FSMATE MM MOO MAK SMA s Mmm Me MONK. OTR DOT OO 
ASAE CATS SS SNTOEES ER TUS SNORE ROE PET Op ETERS T TT 
pererprrevpedPoeeitis 1 
$555555555S5S5SSSSSS9SS SSSSSSSSSSSOSSS SOSSSSSSSOSSOSS 
xs ®& « =x * x x * “ «* = =“ «* “anee a oe ee | 
© MOncar MNO TM MYM) MOOR ee MAO PPO all Lal Mem MOU. O FR OO nt OO 
SRE ORSON Se SIONS aT SET ASSAM SE RE OUT Nee ON eR ORD ARR CET T 
TEASE SS ESAS SSE SSSSSUSSSSS EASES SSS AS RSS a Lad SS SSESESS 
EME MK NCC LL ee 
xe = z = x « = «« ¥ ceo nee x2 # * 
mm Mek MNOS <P OO MM Me MONA sh OOOO 
SIT STL CLIN PO MBAGESRERG SERS ERT EVER SRAM OSEOSSRHEOEE 
retvaprrevedveetete PS etuteeane paae it rat 
$555555858355S555555 SSS oN oO SOS OOOO OO SOOO LOSS OSOSSSOSSS SS 
* * xx = « “ x zee *¢« * = * zses xe & xx « x 
_ ~ MAH FPO MIMS € Me MONO sr Rh. AOA AO 
SRE REP R BARNS O Ra NEG ASR OR IRON ES VEE ASEAN TRON ORAS EET T 
rretvreverpeateoeeetoered ' tid i petrbtuutets 
BSS 55555555 S SSO SSS OOOO OOOO OOOO OOO OOO OOO OOO OOO OOO OO OOD 
« x«<« « as x «x = * z*<«e “ef = « os =“ « e = « x = * 
aoronm # FH MOMNARKR TKR. AO TTD 
SES Oe RICAN RR ORES TET AERO RN RR ONDE CUR AE RNG ERS ORR OTST 
ritorseteeeeteeerane i t ‘a peteeterpetetres 
ee 
* xx «= =x «* * * =“ “ « * * # =“ e x = « *& =x * 
One oO « MOWMOrKR. sh. QO st wT O 
SER OOE NA ORNS SSO R AS VEG LRORO RRO OS UTE CERT RIT ON ORE CEST 
rittetrereveeteteiretad i t peptePeeeretetroens 
BOO 0880000099999 9 88 OOOO OOOO OOO SOOO OOOO OO OOOSOSSSSOS OSS 
“x £2 ” «x « x « * «x * * * ~~ * =x * te > 
LESS BSAM RT SSSBKRASRSSSS SAT HSSBLRASLSSST BmSFSSSLHanSnsss 
ARERTVELER ERODE ER ETOERRL CV HRODDURETUOR RR ED ORED EEE EEDOE 
Foo oo oo oo oo oO OO SOOO SES OS 
ec ene * x «* * x =x * © a * * « ~ re 4 
ELESSSSNGANDSSBCRASLSSSTYANSSSBLRASLSSSS Ins TSSLGANSABSS 
» ari y ° " oer Tinnri Tt - Hoi. Trttrrtitaae ' i Toad bodda aad 
FOO 8 888888 OOO OOOO SS OS OS SSOOSSSOO SPSS OSS OOOO 
7 2 + a - x * * * & «x «* * cs x«x xe xe © 
MOR Ast AMOS 
EE CABVERKAGSERS TN SHOTERG LOUDER CS SHNUERD LOOSE GS EEE OTOG 
os . *e *«e qe es *e 1 
SESSSESSA LASSE SLSSSSSS ASA LaSdSSSSaddAAdD Sod oADDSSSSESSS 
ce cee see oe el ee el el ee el el el ee oe ed ce el el el el el ee el el ee ee el ee ee el el el el el ed el ne el ee eh eh ee 


ee Eo ok a es eee ee 


2 see = 


LE TE Cae case ea meen 


K 5 
10-=81* 10=-=81* 10-=81* 10-=81* 10-=99 10-=99 10-=99 10==99% 10==99% 10-=99* 10-=99* 10==99" 10-=99« 
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10-407" 10-407" 10-407* 10-407 
SEQ 9211 
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| CROSS REFERENCE TABLE (CREF Vv01-05 ) SEQ 0212 
| 10-407* 10-407" 10-4631 10-431% 10-4351% 10-431% 10-431% 10-4631% 10-431% 10-483* 10-483* 10-483* 10-48%3* 10-483« 
10-483 10-483" 10-4683* 10-506* 10-506* 10-506* 10-504* 10-506* 10-506* 10-506" 10-506* 10-583* 10-583 3* 
| 10-603* 10-675* 10-675* 10-675* 10-675* 10-756* 10-756* 10=-756* 10-756* 10=<779* 10=-779* 10<779* 10=-779* 10-837 
| 10-837 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-859 10-859 10-859* 10-859* 10-859 
| 10=859* 10-859* 10-859* 10-859* 10-859* 10-914 10-914 10-914* 10-914" 10-914% 10-914% 10-914* 10-914* 10-914 
10-914* 10-937 10-937 10-937* 10-937% 10-937* 10-937% 10+-937% 10-937*% 10-937* 10-937* 10-989 989 10-989« 
10-989* 10-989* 10-989* 10-989* 10-989* 10-989* 10-989* 10-:53 10<:53 104:53* 10=:53* 10=:53* 10=:53* 10-:69* 
10=:69% 10=:69* 10-:69% 10-:89% 10-:89*% 10-;89* 10-;89* 10-<84* 10-<84* 10-<B4* 10-<84* 10-<B4* 10-<B4* 10-<84« 
10-<84* 10-<B4* 10-<84* 10-<84* 10-<84* 10-=09* 10-=09* 10-=09* 10-=09*%* 10-=09* 10-=09* 10-=09* 10-=09* 10-=09* 
10-=09* 10-=09* 10-=09* 10-=81* 10=-=81* 10-=81* 10-=81* 10-=81* 10<=81* 10-=81*« 10==81* 10-=99* 10-=99* 10-=99« 
10-=99% 10-=99* 10-=99% 10-=99% 10-=99% 10-747 10-241*% 10-2741% 10-2763 10-763* 10-763* 10-a@31* 10-a31* 10-a31« 
0-a31* 10-a61* 10-a61* 10-a61* 10-a61* 
CKSWR 13-1 14-1 14-1 22-14 
CLOCK 12-10 12-19 12-304 
CLR 64-6234  4-6524 10-22 10-33 10-33 10-223 10-241 10-407 10-431 10-483 10-506 10-989 
CPSAVE 13-1 13-1 13-1 13-1* 13-1* 14-1 14-1 14- ~ 14-1 14-14 14-1* 14-1* 15-1 
C 46-6014 16-1 16-1 25- 25-6 25-9 25-11 25-13 25-15 25-17 25-21 25-23 
CRLF 4-901" 9-29 9-29 16-1 16-1 23-3 23-4 23- 23-6 23-7 23-9 23-10 
DCK 64-6854 
ODISP 4-6014 6-0 9-24 
DF 1 8-7 8-14 8-21 8-63 8-133 8-140 8-226 8-233 8-261 8-275 8-303 8-346 25-504 
DF 31 8-126 8-156 8-177 8-254 8-268 8-310 25-534 


DF 36 8-70 8-112 8-119 8-148 8-170 8-191 8-198 8-205 8-212 8-219 8-360 25-544 
DF5 8-35 8-42 8-56 8-77 8-84 8-184 8-282 8-289 8-296 8-332 8-339 8-353 8-374 25-514 


DF 7 8-28 8-49 8-91 8-98 8-105 8-163 8-367 25-524 
DH1 8-5 8-12 8-224 8-259 25-14 

DH11 8-61 25-84 

DH13 8-40 8-75 8-82 8-280 8-294 8-351 25-94 

DH22 8-124 8-154 8-308 25-114 

DH2 8-131 8-138 8-231 8-273 8-301 8-344 25-134 

DH26 25-154 


—_ 8-68 8-110 8-117 8-146 8-168 8-189 8-196 8-203 8-210 8-217 8-358 25-194 


8-26 25-34 
DH42 8-238 8-245 25-204 
DH44 8-252 25-214 


DH46 
DH5 8-33 8-54 8-182 8-287 8-357 8-372 25-54 


DH7 8-47 8-89 8-96 8-103 8-161 8-365 25-64 

DISPLA 6-0# 9-24% 9-24* 13-1% 14-1* 

DISPRE 5-14 9-24 

DLT 4-6534 

—_ Pi $4 10-<84 10-<84 10-=09 # 10-=09 

DPR 4-6594 10-48 10-48 10-151 10-151 10-173 10-173 10-223 10-241 10-268 10-281 10-327 10-327 10-527 
10-350 10-350 10-350 10-407 10-431 10-483 10-483 10-483 10-483 10-506 10-506 10-506 10-506 10-531 
10-531 10-547 10-547 10-583 10-583 10-603 10-603 10-675 10-675 10-675 10-675 10-675 10-675 10-705 
10-756 10-756 10-779 10-779 10-837 10-837 10-859 10-859 10-914 10-914 10-957 10-937 : 10=-; 20 
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DRY 4-6584 10-48 10-48 10-151 10+151 10-173 810-173 10-223 10-241 10-268 10-281 10-327 10-327 10-327 
10-350 10-350 10-350 10-407 # 10-431 10-483 10-4835 10-483 10-483 10-506 1 10-506 10-506 #£10-531 
10-531 10-547 10-547 10-583 10-583 10-603 10-603 10-675 10-675 10-675 10-675 10-675 10-675 #£«+10-705 
10-756 10-756 10-779 10-779 £10-837 #£«®+10-837 10-859 10-859 10-914 10-914 10-937 10-937 10-:03 £10-:20 
10-:69 10-:69 10-:89 10-;89 10-<84 10-<84 10-<84 10-=09 10-=09 10-=09 10-553 10=>73 10-2741 10-763 
10-330 10-a30 10-a60 #£=10-a60 
4-6014 6-0 9-24 
4-7104 
4-7114 
4-712a 
4-7134 
44-7144 
4-7154 
44-7164 
4-717 
4~-7184 
8-6 8-13 8-62 8-260 8-302 25-324 
8-41 8--76 8-83 8-281 8-295 8-352 25-374 
8-125 8-155 25-384 
8-132 8-139 8-225 8-232 8-274 8-345 25-394 
8-20 25-334 
8-176 8-255 25-404 
8-147 8-169 8-190 8-197 8-211 8-359 25-414 
8-69 8-111 8-118 8-204 8-218 25-424 
8-239 8-246 25-434 
8-267 25-444 
8-34 8-55 8-183 8-288 8-338 8-373 25-344 
8-309 25-454 
8-316 25-464 
8-325 25-474 
8-331 25-4 
25-354 
8-27 8-48 8-90 8-97 8-104 8-162 8-366 25-364 
4-6824 
4-6484 
4-7354 
4-6764 
4-7464 
8-4 24-34 
8-53 24-104 
8-60 24-114 
8-67 24-124 
8-74 24-1 
8-81 24-144 
8-88 24-154 
8-95 24-164 
8-102 24-174 
8-11 24-44 
8-109 24-184 
8-116 24-194 
8-123 24-204 
8-130 24-214 
8-137 24-224 
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10-431 10-431* 10-431*% 10-4683* 10-4683* 10-483* 10-483* 10-506* 19-506" 10-506* 10-506* 
10=531* 10-531* 10-531* 10-531% 10=-531% 10-547 10=547*% 10=547% 10=547* 10-5467 10-547 
10-583 10-583 10-583* 10-583* 10-583* 10-583* 10=-583* 10-583* 10-583* 10-603 10-603 
10-603* 10-603* 10-603* 10-603* 10-603* 10-675* 10-675* 10-675* 10-675* 10-675* 10-6 
10-675* 10-675* 10-675* 10=705* 10=705* 10=-705* 10=-705* 10=-705* 10=-705* 10=-756* 10-7 
10=756* 10-756* 10-756* 10-779% 10-779% 10=779% 10=-779% 10<779% 10=779* 10-779 10-7 
10-837* 10-859* 10-859* 10-859 10-859% 10-914% 10-914 10-914% 10-914% 10-937* 10-9 
10-989 10-:53* 10=:53*. 10=;03* 10-;03* 10-;03* 10-;03* 10-;03* 10-;03* 10-;03* 10-; 
10=:20* 10-:20* 10-:;20* 10=-;69* 10-;69% 10-;69% 10-;69*% 10-;69% 10-;69% 10-;69* 10-; 
10-:89* 10-:89* 10-:89* 10-;89* 10-;89 10=<84* 10-<84* 10-<84"* 10-<84* 10-<84* 10-< 
10-=09* 10-=09* 10-=09* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10<=81* 10-= 
10-=99* 10-=99% 10-=99% 10-=99% 10-=99% 10=>53* 10=>53" 10=>535* 10=->53% 10->53*« 10- 
10=>73*% 10=>73* 10=->73* 10=241% 10=-2741% 10=2741% 10-2741% 10=-741% 10-741% 10-741* 10-7 
10-?63* 10-2763* 10-2763* 10-a30* 10-a30* 10-830* 10-830* 10-a30* 10-a30* 10-a30* 10- 

10-a31* 10-a31* 10-a60* 10-a60* 10-860* 10-a60* 10-860* 10-860* 10-a60* 10- 
10-261 10-a61* 10-a61* 

RMCS2 4-767# 10-22* 10-33 10-33 10-33 10-33 10-33% 10-33% 10-33% 10-33* 10- 
10-52* 10~54* 10-151% 10-151* 10=-151% 10=-151% 10-151% 10-151* 10-151* 10-151* 10-173« 
10-173* 10-173* 10-173* 10-173* 10-223% 10-223% 10-223% 10-223% 10-223* 10-223* 10-223 
10-241% 10-241 10-241% 10-2461% 10-2461% 10-241% 10-241% 10-241* 10-241% 10-241* 10-268 
10-268* 10-281* 10-281* 10-281* 10-281* 10-281* 10-327* 10-327* 10-327* 10-327* 10-327* 
10-327* 10-327* 10-327* 10-327* 10-327* 10=-327%* 10-350* 10-350* 10-350* 10-350* 10-350 
10-350* 10-350* 10-350* 10-350* 10-350* 10-350* 10-407* 10-407* 10-407* 10-407* 10-407* 
10-407* 10-407* 10-407* 10-407* 10-431% 10-431% 10-431% 10-4631% 10-431% 10-431% 10-431* 
10-431* 10-431* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483* 10-483 
10-483* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506* 10-506 
10-531* 10-531* 10-531* 10-531* 10-531* 10-531* 10-531* 10-531* 10-531* 10-531* 10-547* 
10-547* 10-547* 10-547* 10-547* 10-547* 10-5472 10-583* 10-583* 10-583* 10-5835* 10-5835* 
10-583* 10-583* 10-583* 1 3x 10-603* 10-603* 10-603* 10-603* 10-603* 10-603 
10-675* 10-675* 10-675* 10-675* 10-675" 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 
10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-675* 10-705* 10-705*« 
10-705* 10-705* 10-756* 10-756* 10-756* 10-756* 10-756* 10-756* 10-756* 10-756* 10-756* 
10-756* 10-756* 10-779%* 10-779% 10-779% 10=-779% 10-779* 10-779%* 10-779 10-779* 

10-779* 10-779* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 10-837* 
10-837* 10-837* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859* 10-859« 
10-859* 10-859* 10-914* 10-914* 10-914* 10-914" 10-914 10-914% 10-914% 10-914* 10-914* 
10-914* 10-914* 10-937* 10-937* 10-937* 10-937 10-937 10-937" 10-937* 10-937* 10-937* 
10-937* 10-937* 10-989* 10-989* 10-989* 10-989* 10-989* 10-989* 10-989* 10- 1 
10-:53* 10-:53* 10-:53% 10-:53% 10-:53* 10=:53* 10-:53% 10-:53% 10-:53* 10-:53* 10-:535* 
10-;03* 10-;03* 10-:03* 10-:03* 10-;03* 10-;03* 10-;03* 10-;20* 10-:20* 10-:20* 10-:20* 
O-;20* 10-;20* 10-:20* 10-:69* 10-;69% 10-:69* 10-:69% 10-;69* 10-;69* 10-:69* 10-;69* 
10-;89* 10-:89* 10-:89% 10-:89* 10-;89% 10-;89* 10-;89* 10-<84* 10-<84* 10-<84* 

10-<84* 10-<84* 10-<84* 10-<84* 10-<84* 10-=09* 10-=09* 10-=09* 10-=09* 10-=09* 10-= 
10-=09* 10-=09* 10-=09* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10-=81* 10- 
10-=99* 10-=99% 10-=99* 10-=99% 10=-=99% 10=-=99% 10-=99% 10-=99% 10-=99% 10-=99* 10-=99« 
10=->53* 10->53* 10->53* 10->53* 10->53* 10->73* 10->73* 10=>73* 10=>73* 10->73* 10->73* 
10-?41% 10-2741% 10-241% 10-741% 10-741% 10=-741% 10-2741% 10-2741*% 10-2763* 10-763 10-2763* 
10-763* 10-2763* 10-763* 10-a30* 10-830* 10-a30* 10-a30* 10-a30* 10-a30* 10-a30* 10-a50* 
10-330* 10-a30* 10-830* 10-a830* 10-a60* 10-860* 10-a60* 10-a60* 10-a60* 10-a60* 

10-a60* * 10-2860* 10-2860* 10-a60* 

RMDA 4-7664 10-151 10-151 10-151* 10-173 10-1735 10-173* 

RMDB 4-7724 

RMDC 44-7774 10-151 10-151 10-173 10-173 

RMDS 4-7684 10-33 10-33 10-48 10-48 8 10-48 10-48 10-48 10-48 10-48 
10-151 16-151 10-151 10-151 10-173 10-173 10-173 10-173 10-173 10-173 10-173 
10-223 10-223 10-223 10-223 10-223 23. 10-223) —-:10=223* 10-241 10-241 1 1 
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el see cee sel oe el el cel ee el el el el el ee ol el el el el ee el el el cl el el nel ee el oe ed el el eel ed oe oe ee oe 
4 x“ «x ca =“ « * «x « 
NORM KRKMWMMNOARASKRAMOASH MMO OO 
WROBOMEOKORKRMALMMOANDO ODODE OMORnARDOSA BK AR me 
UECEMER OOO E REE HEE wey Tw I tT PTTIT TS [oe = me 
4444444444464444444464444444d4465d444d444454 44 4 dd 
EES ESC SC CMR KK OOO RK KK KF Oe 
« x * * * * * RRRR* * R RRR RReha 
RORM KRMIAWOAR Ar TRAMOR valval nN o Nn 3 
AIROWOSe WO OER Kat SP PMS f RAK RMI GES ARK SO SOMO SAAS Ne FSNBF 
LiLo ta, Pitirrdaad ee ae i nuiuddh wk genre ei ET TTTN TPT TP PTT . a wa ee 
44444444644444444444444b4bhdhbh4446 4444444 sss esses geegygs 
SO OE EE CCC SCE & CocCe- - 
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7 
SCOPE 4-601 10-62 10-157 190-173 =10=223 10-241 10-268 10-281 10-327 10-350 10-407 


SE ee ae ee 


10-431 


Neen nn rr ren a re Se tess <n see h-~es sS al ssenn-nsh-h- g-assm  --i nttete —— = eee ee ee -_ 


10-483 


10-506 
SEQ 022% 


H 7 
CZRMRBO RMO5/3/2 DU POR TST 1. MACRO VO04.00 4-APR-81 18:06:25 PAGE S-18 


ROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0230 
10-531 10-547 10-583 10-603 10-675 10-705 10-756 10-779 10-837 10-859 10-914 10-937 10-989 10-:53 

10-203 10-:20 10-:69 10-:89 10-<84 10-=09 10-=81 10-=99 10=>53 10->73 10-2741 10-763 10-830 10-a60 

 SEIZPT ?=0#  10-151% 10-173* 10-223* 10-241* 10-268*% 10-281* 10-327" 10-350" 10-407" 10-431% 10-483* 10-506* 10-531« 

| 10=-547* 10-583* 10-603" 10-675* 10-675* 10-675* 10-756* 10-779 10-837" 10-859% 10-914 10-937* 10-:03* 10-:20« 

| 10-:69* 10-:89* 10-<84* 10-=09% 10-=81* 10-=99% 10=>53« 10=>73* 10-241" 10-763" 10-@30* 10-a60* 25-36 25-37 

Ries 25738 25-39 25-40 25-41 25-45 25-46 

. - 

| STACK 64-6018 9-26 9-71 10-20 10-82 10-1717 10-189 10-239 10-256 10-279 10-302 10-348 10-372 10-429 
10-452 10-504 10-520 10-545 10-565 10-601 10-620 10-689 10-726 10-777 10-803 10-857 10-880 10-935 
10-953 10-:08 10-:68 10-:18 10-:39 10-:87 10-<41 10-=07 10-=29 10-=97 10-517 10=>71 10-596 10-761 


START 5=1 9-148 19-1 19-1 
START? 5-3 9-174 
START2 9-1 9-194 
STKLMT 4-6014 
13-1 13-54 
SWO 4-6014 


SWwO9 4-601 4-6014 


Sw 4-6014 
SW10 4-6014 
SW11 4-6014 


SW15 4-6014 10-59 


SwW2 4-6014 

Sw3 4-6014 

SW4 4-6014 

Sw5 4-6014 

SwW6 4-6014 

SwW7 4-6014 

Sw8 4-6014 

Sw9 4-6014 

SwR 6-04 9-24 9-74 9-24 9-24" 9-29 10-59 13-1 13-1 13-1 13-1* 13-1* 13-1* 13-1 

14-1 14-1 14-1 14-1 19=1 19=1 19=1*% 

SWREG 5-14 9-24 9-29 19=1 19-7 19=1 

TAP 4-7214 


TESTI 20 
TESTIO 10-302 10-302 10-3024 
1 10-348 


TEST16 10-520 10-520 10-5204 





LL SE LIL LOL LL LLL LES LLL LS LEILA I A TS SAC CN et i a tl El, ee le a te te 


TESTI7Z 10=545 109565 10=545@ SEQ 0231 


me eee 


+ 


: x 3 
- CZRMRBO RMOS/3/2 DU POR TST 1. MACRO V04.00 4-APR-81 18:06:25 PAGE S-19 


| CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0232 
TEST2 10-82 10-82 10-824 
TEST2O0 10-565 10-565 0-5654 
TEST21 1 10-601 10-6014 
TEST22 10-620 10-620 10-6204 
TEST23 9 10-689 10-6894 
TEST24 10-726 10-726 64 


TEST30 10-880 10-8804 
TEST31 10-935 10-935 #£10-9354 
TEST32 10-95 10-953 10-9534 
TEST33 10-:08 10-:08 #£«+10-:084 
TEST34 10-:68 10-:68 #£«10-:684 
TEST3S 10-:18 10-:18 10-;184 
TEST36 10-:39 10-;39 £10-;394 
TEST37 10-:87 10-:87 #10-;874 
TESTS 10-189 10-189 #£10-1894 
TEST4O 10-<41 10-<41 10-<414 
TESTS? 10-=07 10-=07 #®10-=074 ‘ 
TEST42 10-=29 10-=29 #4®%10-=294 
TEST43 10-=97 £10-=97 #10-=974 
TEST44 10=>17 410=>17 #4«®+10->174 
TEST4S 10=>71 10->71 L ge a . 
> 


resto ‘980° dear ‘Oo 

TIME 10-151 10-151 10-151* 10-173 10-173 10=173* 10-223* 10-241* 10-=81* 10-=99* 10->5353 10->53* 10->53« 
10=>73 10=>73* 10=>73* 12-30* 12-32* 25-46 

TIMEA 7-04 9-58* 10-151 10-151* 10-151* 

TIMEAM 7-04 10-151* 10-151* 10->53 

TIMEAP 7-04 9-58* 10-151* 10-151* 10->53 10-2417 

TIMEB 7-04 9-58* 10-173 10-173* 10-173* 

TIMEBM 7-04 10-173* 10-173* 10->73 

TIMEBP 7-04 * 10-173* 10-173* 10=->73 10-763 

TIMES 7-04 10->53 10->53 £10->53* 10=>73 £10=>73 #£10=>735* 

TKVEC 4-6014 19-1* 19=1* 

TOLER 10-151 10-173 12-424 

TPVEC 4-6014 

TRAPVE 44-6014 9-24* 9-24» - 

TRE 4-6134 10-327 410-350 #£410-a31 10-231 10-261 10-261 

TRIVEC 4-6014 

TST1 9-84 10-208 26-5 

TSTIO §=—10-3024 26-8 

TST11 34 26-8 


ee ee ee ee 


A TO Le 


eee 


so —_—. 


SFO 0253 


10-5454 26-8 


TST1? 


_ LL ec 


> LR Ee RE ene 


i ee 


ee EEE “OED eee oe 


— —- ee —_— ——se ee 


| 
“Oo 

| CZRMRBO RMOS/3/2 DU POR TST 1 MACRO V04.00 4-APR=81 18:06:25 PAGE S=20 

| CROSS REFERENCE TABLE {CREF VO1-05 ) SEQ 0234 


TSTIAA 10-174 = 11-1 
TST2 0-8 


10-314 
10-0614 


Ce a oe ee a 


15-1 2c- 14 
9-35 9-38 9-46 9-48 9-50 9-61 9-69 9-80 9-87 9-102 9-105 9-106 © 
11-1 14-1 14-1 15-1 15-1 15=1 15=1 15-1 15-1 15-1 16-1 17-1 | 
19=1 19-1 19=1 19-1 19=1 19=1 19=1 19-1 19-1 19-1 19-1 19-1 
19-1 19-1 19-1 20-1 20-1 22-14 : 

5-1 15-1 19=1 con lA# 
22-14 

10-151 10-151 10-151 10-173 10-173 10-223 3 10-223 10-223 10-223 
10-241 10-241 10-241 10-241 10-241 10-241 10-241 10-268 10-268 10-268 #£«+10-281 16-281 
10-327 10-327 10-327 1 1 10-350 10-350 10-350 -350 10-407 10-407 





oe ee em em eee ee ~<2 — - = 


A A —<asasmtlinnemiendthestteesctiee-cienmnstn <unENe ote 


10-431 = 10-431 Ss: 10-431 =: 10-483 


en = ee ee ee ee ee ee ee ees ee 


M 
10-4835 10-483 10-483 


7 
10-483 


10-483 


10-506 


10-506 


10-506 


10-506 


10-506 
SEQ 0235 
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N 
MACRO V04.00 4-APR=-81 18:06:25 PAGE S~21 


| CZRMRBO RMOS/3/2 DU POR TST 1 


SEQ 0236 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


WRRARRRES EAS’ 
toddeddad 


10-403 
10-705 
10-837 
10-989 
0-; 
10-<84 
10-= 
10=>73 
10-a60 
10-223 | 
10-268 
10-327 | 
10-407 | 
10-483 | 
10-506 — 
10-547 | 
10-603 | 
10-675 | 
10-756 
ap 


$06 


sors mo eeV i ASN ONAN Pepe Ee te tate Bins 
PLipsLaassadaddsddaddosdadaags 


MMODOUSN 
@ 


= 
BESS ECAR ERROR ORR Cee ees 
BIESbsgeSSoaaSoSASSSSSSSSSSSSS 
aa eek week eh eee eh mee eee ee eh eh ee ee ee ee ee ee el ce el 
WAR ATAMOMAHR Ot OR MMNMNAATAMA Me 
FOR RSS SAC RAAT RRR OCR ORR SOUT AS 
SEsSbES OSES ~aHSSSSSSSSSSSSSSS 
Ree ae ee Te mee meek ed el el eel ee cel eh meh eee me mee se ee ee el 


rMNATOTRAQROM — Or OK MMNMNAR. FAM oO 

SORE RES RRR ERROR Rane Te ET ED 

Cet cet cee week we me meh mee ee ee ee ee, Se eel eee ee see ee ee ee el ee ee ee ne 

CRWAsTOvranorc:-Or- MANOR. ~F CAPO ON oO 

LS SEL UTTER aES SbAR SEAT. 

Fob db bgdgbhobbbhhh55bbb5bbhhS 

Se eet eek se oe cel el col cee el eel ee eel ee se ee oe ee ce el oe ee ee el el el Ne ee nae 

Se RSS a ons wAmoameaonk AM ~ DODBGORKM 

es ore > " " - he ers i eae & ya & le eVHla 

Seek peek teeth aot eee seth nek sel eel el see eel eel. oe ee pee eel, eel ee, ee oe el ee el ed oe ee ee ee ie 

RLRY SSS SBATERSSHBE RAZ SSSSSS 

eSRVERS ENN VESOEROUEEEE EROS: 

eh ceed eel meek el ol ek ol eel el oe el ee el ee eel el eel ee el el ee el 

Ht Dy pet $s stat beg bh got bot oy by 4 > inl Ppa oe 4 ~~ 

MK.ANODOO OMMVDNHODMOORUM--MOWwO XS 

se ale Ae 7 Lidia tiigetiarae *. -y nou ae 

4444444444444445444454444444645454545 

Sl ek cee el ool cel el med eel eel el ool ee ee el el eel el el el el el ee el el el he el el ee 
z 

FAA ODD DF AMO NOWMOONUM A MOOROAN IO 

Stare eeVilie tidbiiirrrread sererall I] AG: 

4444444444444444544645464544454454454545 

ee seed ee eel oe el cel el el el oe ee el el el ee el oe eel el el, ed el eel el el ee el el 


ODA AN Be FOR DAM aon a 
fTae eVV IC Litt tadteobod erell Il . [ 
44444464446464454664646444446444b44445S5 


10-506 
10-603 
10-705 
10-859 
10=-:53 
10-<84 
10-<84 
10-= 

10-2741 


— — ——— ree oe eee _ — Se = 
- - — ee ee _-—_——- —_—_ 
~ —--— —_ -- —_ ——— — = 


B 8 
RMO5/3/2 DU POR TST 1. MACRO V04.00 4=APR=-81 18:06:25 PAGE M~1 


¢ZRMRBO 

CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0257 
SSCMRE 5-464 6-0 

SSCMIM 5-464 6-0 6-0 6-0 6-0 6-0 


SSESCA 4-6014 

SSNEWT 4-6014 10-20 10-82 10-171 10-189 10-239 10-256 10-279 1030 10-548 10-372 10-429 10-452 10-5 
10-520 10-545 10-565 10-601 10-620 10-689 10-726 10-777 10-80 10-857 10-880 10-935 10-953 10-:08 
10-:68 10-:18 10-;39 10=-;87 10=<41 10==07 10-229 10-=97 10-17 10=>77 10->96 10-761 10-790 10-258 


22-1 22-1 22-1 22-1 22-1 22=1 22-1 22-1 22-1 22-14 


| 
| 
| 
| 


10-40 10-40 10-468 10-48 10-48 10-48 10-223 10-223 10-223 10-241 10-241. 
10-407 10-407 10-407 10-431 10-431 10-431 10-483 10-483 10-483 10-483 10-506. 
10-583 10-603 10-675 10-675 10-756 10-756 10-779 10-779 10-837 10-837 10-837. 
10-859 10-859 10-914 10-914 10-914 10-914 10-937 10-937 10-937 10-937 7 
10-:5353 10-:53 10-:69 10-:69 10-:89 10-389 10-<84 10-<8&4 
10-=09 10-=09 10-=09 10-=09 10-=81 10-=81 10-=81 10-=81 10-=99 10-=99 10-=99 
10-831 10-831 10-a61 10-261 

10-407 10-431 10-531 10-547 10-583 10-603 10-675 10-705 10-756 10-779 10-:03 
10-=81 10-=81 10-=99 10-=99 10->53 10->73 10-241 10-2763 10-230 10-a60 

10-33 10-40 10-40 10-48 10-48 10-48 #10-48 10-58 10-151 10-157 10-15 
10-151 10-151 10-151. Ss: 10-151. Ss: 10-151. Ss «10-151 Ss 10-151 s- 10-151 Ss: 10-151 Ss «10-151: 10-15 
10-173 10-173 10-173 10-173 10-173 10-173 10-173 10-173 10-173 10-173 10-17 
10-773 «10-173 «=: 10-173 Ss «10-173 Ss: 10-223): 10-223): 10-223)S-10-223 = 10-223 Ss: 10-223 Ss: 10-223 
10-241 10-241 10-241 10-941 10-241 10-241 10-268 10-268 1 10- 10-281 
10-327. 10-327 10-327 10-327 10-327 10-327 10-327 10-327 10-327 10-327 10-350) 
10-350 10-350 10-350 10-350 10-350 10-350 10-407 10-407 10-407 10-407 10-4 
10-431 10-4631 10-431 10-431 10-431 10-431 10-483 10-483 1 10-483 | 
10-483 10-483 10-506 10-506 10-506 10-506 10-506 10-506 10-506 10-506 10-506) 








— a 


_ 


ee 


MACRO V04.00 4=-APR=-81 18:06:25 PAGE M=2 


CROSS REFERENCE TABLE (CREF v01-05 ) 


C 


SEQ 0238 


CZRMRBO RMOS/3/2 DU POR TST 1 





reee Vl HA 


44444444 


10-2474 10-256 
10-4854 10-504 


DSSSESLGY 
é 


mMA OR. OR. O MIO me QUAM % Or aor on -— 
SS ceive fey 285 855 
44446466644444444 444444 44 4445 d44 
SE EE LL ES re Se eee =r ee 
22 2 Behe 
SOQLHSL AMS sac RERESK Sho Sot got 
WOOR. DWADOO «oe V lt tl wy eeeee | iT a ey re ar) 
444444444445454544 446444 .4544 45455 ddd 
Se eee eee eh oe oe ek oe oe ee oe eh eh eh ee CFF EE & ere \ eel eh oo ee 
SON RAT SSSSSan om DUNMONR WROo RAO RRO 
MOOR. DOGO «e+e V I . os ¢ Titee A og i aly ? eat 7 . i 
44444446464444464446 4460444 d4d4 ddd =Sdd4 
SS SLES LLCS S.]S SS eed eth meh oth cee eel Ge e-g= ee ~~ 
ARAS SA 
MIMO TOMA TO ee Me MnOoOw OO woOwor oor 
MORN Mie DOWOwWDoomwsn ~ mw COwmo wcrucy Wor 
st oe ee kt “¥ u ° Wh T1tt re A OPM a il oy . 
ooo 4466646446464456 } ooo 40 44 Oooo 
LFF FCC CCC CTS SE CP Fe ES FEE eee Fre Geyer 
MIN OOK FTF AMA TOA Me MWe ORR. br AD § QAarm Onrm 
MGDiNh.wsdmwowdowmnwaem ms A Oe woo ni 8 M00 © 
SPT LETT LALA Le Tittit «Tl TEL ET! 
6006600066088 ooo ad Ooo aad bod b00 
PEPE FOC CSCC CCCOCSE SE Seger ge ee ee > eer = ere eg 
he ob ig Nap he Aho a a a Pde WWD OM. © wh cru. oocusr 
‘eee eeeeeel ene OE ees 2 Se 4 eG a 
oo 54460664646445464455m 4444446 dad 006 Oooo 
SPSS FHM EO OOK CSCS EE SP FP = FF ee ete Ga =e 
MINN AXATRMAT AAO COUN. ah. MIN ee ~—h. 
RaSeNoaS SET aT Tee SMAgw AS HBr CO wn 
EEESESSESL SSE SSES oon To Ge cee a eee oe 
Sek eee ee el el el ee el el el ee oe el el el el od Ell S See See SSE eee OCU 
AORORMAMInDDOM RTM ow Oo RMR BG e wy Mtr ey CuO woo wor) MOnOMme 
t Oo «+ a nuda i wom Tw uwraAaA » @&w sah sell com »® GY «ss tox . wet 
$564646445444544544555 dh dh dddddd 4 d44454556 ddd ddd 544544555 
FPSO EMEC CSCC SCC SCS LFS FE CPP SCE FS CSCC SSeS EO ee CY 
MNAWMOKR FR MO —OMO- MK MAH BM Oe O AK MIWMCOOG MO WO ef WOOP) 
SRP ETT TTT TIES OF BERIT PP TEPPER TTD GREET ER cy 
$506566644446445445 6 34 eee ee addbddddddd ddddddd dddddoo 
FFF ECCSE SC EE -— FP FFF CESK EE cet eet meal seed seed meal mead ct ee ee me oe ee ee eh el ee el eh 
ETA TE RRTTAEY LEGGE TELAT IL LER 
SOtPitad ceooseVl HUA #9 RES3S rea Te? sO COR MCU. +s II Bonu *. Bu be ee ‘3S 
! " " iy : L 
SESSSSSSdESSSSS SS LADIES ESA ES a ASSESS SS LESS IddSSIaSd.hS 


Ss sfeegEnsysERES? ss $ 33 B88 
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8 
10-407 =10-431 =610-483) = 10-506) = «10-531 Ss «10-547 = 10-583 
SEQ 0259 


--— ——— ee eee ee ee 


| D 
RELEAS 4-203 10-223 10-241 10-327 10-327 10-350 10-350 


| 
| 
| 


E 
MACRO V04.00 4=-APR-81 18:06:25 PAGE M=3 


_ CZRMRBO RMOS/3/2 DU POR TST 1 


SEQ 0240 


| CROSS REFERENCE TABLE (CREF VO1-05 ) 


10-;03 


10-937 
22-14 


22-1 
10->73 


22-1 


10=>73 


10-=99 10=>53 10=->53 


10-=81 


15-1 


11-1 





